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Introduzione 


Il vostro computer è in attesa per sfidarvi. Rapidi «games» 
di grafica, giochi di concentrazione, di parole e di enigmisti¬ 
ca sono tutti qui pronti a farvi divertire. 

Nel libro vi sono una notevole varietà di giochi i cui pro¬ 
grammi sono stati scritti da alcuni fra i più giovani e abili 
programmatori che lavorano attualmente in Gran Breta¬ 
gna. L’esaminare i programmi dei giochi vi dà la possibilità 
di apprendere raffinate tecniche e sottili metodi di pro¬ 
grammazione che voi stessi potete poi applicare. Inoltre, 
una volta che avete conosciuto a fondo i programmi pre¬ 
sentati dal libro, potreste senz’altro provare a migliorarli — 
un programma non è mai "perfetto” — arricchendo le vo¬ 
stre capacità di programmazione. Adesso voltate pagina e 
incominciate a "battere” i programmi. Sono certo che il vo¬ 
stro divertimento sarà pari a quello che abbiamo provato 
durante la stesura di questo volume. 
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Introduzione 

dell’autore 

In questo libro ho cercato di illustrare il maggior numero 
possibile di programmi che sappiano sfruttare appieno le 
capacità degli home computer Atari 400/800. Molti pro¬ 
grammi utilizzano insiemi di caratteri ridefinibili, e alcuni 
usano l’ottima capacità grafica dei computer Atari chiama¬ 
ta “player-missile” (giocatore-missile). Spero che vi diverti¬ 
rete con questi giochi anche se penso che vi sarà molto più 
utile esaminare i listati per comprenderne il funzionamen¬ 
to. Vi sarà utile, inoltre usare le idee suggerite in questo li¬ 
bro per applicarle ai vostri programmi. 
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Prefazione 
all’edizione italiana 

È con piacere che ho accolto l’invito dell’editore Gremese 
per curare una serie, finalmente in italiano, di volumetti sui 
videogiochi. Molti acquirenti di piccoli e medi personal 
computer, sia che lo utilizzino personalmente sia che ne 
abbiamo fatto oggetto di regalo ai propri figli si sono fatti 
trascinare dalla pubblicità che precisava «al prezzo di un 
semplice video-gioco acquistate un intero computer». È ve¬ 
ro ed è stato un buon acquisto. Per imparare ad utilizzare 
un computer in modo semplice e divertente non c’è però 
niente di meglio della via ludica. Non giochi comprati e frui¬ 
ti passivamente, però, ma "creati” e vissuti, istruzione do¬ 
po istruzione prima compiendo e poi personalizzando o "in¬ 
ventando", in modo da accedere gradualmente nel nuovo 
mondo dell’informatica. 

g.z. 


11 
















-,---— I — 




1 

c 





, SKYDIVER ,_: 




+] 










r 


SKYDIVER 


(Per questo gioco si usa il joystick) 

Questo programma utilizza dei caratteri definiti dall’utente 
e una grafia “player-missile”. È opportuno che chi soffre di 
vertigini non giochi, poiché si deve raggiungere il maggior 
punteggio possibile con 10 lanci nel vuoto. 

Il vostro aeroplano vola attraverso la parte superiore dello 
schermo: per lanciarvi dovrete premere il pulsante rosso. 
Vi troverete a scendere a velocità sostenuta. Se desiderate 
rallentare, “abbassate” il joystic per aprire il vostro para¬ 
cadute. Guadagnerete dei punti premio scendendo con 
bravura sulla piattaforma di atterraggio. Questi punti dipen¬ 
dono dall’istante di apertura del paracadute: il vostro pun¬ 
teggio sarà tanto più alto quanto più tardi lo aprirete. Non 
potete, però, aprire il paracadute al di sotto di una certa 
quota. Un punteggio attorno a 12.000 è discreto. Buon at¬ 
terraggio! 
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10 REFI « SKV DI UER - WRITTEN BV U 
20 REP1 PAUL BLINH DECEfIBER 1982 « 

25 IF PEEKX 203 >=PEEfcX 106>-8 THEN 40 
30 GOSUB 10000:REH INITIALIZATION 
40 DIPI PL£NE$<1>,PIAN*<1>,CHUTE$<1>,BASE$ 
< 1 >,LINE$'ì 1 > 

50 PLANE$=CHR$< ASC< " & “ >+128 > : P1AN*= “ ! " : LI 
NE$=CHR$‘- ASCX >+96 > 

55 FOR JUP1F-1 TO 10 

60 GRAPHICS 17:SETCOLOR 2,12,10:POKE 16, 
64: POKE 537,-4,64 

61 POKE 53277,3: REPI * ENABLE PLAYER PII SS 
ILE GRAPHICS * 

62 POKE 559,46:REPI $ DOUBLÉ LINE RESOLUT 
ION FOR PLAVERS 

63 POKE 54279,F'EEK<204>:REPÌ 7 TELL ANTIC 
HHERE FT1 GRAPHICS ARE IN RAPÌ t 

64 POKE 53256,3: POKE 53257,3: REPI $ QUADR 
OUPLE SIZE FOR CLOUDS 7 

65 POKE 704,8:POKE 705,14:REPI * COLOUR F 
OR CLOUDS * 

66 X3= I NT< RrCK O >* 1 00 >+75 : POKE 53248, X3 : R 
EH « RANDOP1 HORIZONTAL POSI TI OH FOR CLO 
UD 1 ** 

b7 X4= I NT< RND< 8 >$ 100 >+75 : POKE 53249 ,X4 : F: 
EH U RfiNDOn HORIZONTAL POSITION FOR CLO 

UD 2 &•¥• 

68 POKE 623, l: REPI X SET PRIORI TV BETHEEN 
PLAVERS ArCt PLAVFIELDS X 

69 POKE 53278,255: REPI * CLEAR COLLI SION 
DETECTION REGISTERS * 

70 POKE 756 , PEEK< 203 > : SETCOLOR 3,3,4 : REPI 
X POI NT TO NEW CHARCTER SET IN RAPÌ INST 

E AD OF ROP1 * 

80 X= 1: 6ASE$= 11 # " : CHUTE$=CHR$< ASC< " X " >+12 
0 

85 REl'ì FRI NT BASE LINE %% 

90 FOR P=© TO 19 
100 POS IT ION F‘,23 
110 PRINT #6ìLINE$ì 
120 NEXT r 

130 BASE=INT<RND<0>$16 >+2 
140 POSITION BASE,22 
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158 ? #6;BASE* 

155 REH « PIA IN PROGRflPI LOOP tt 

160 POSITION X,0:? #6iPLANE*:POSITIOH X- 

1 fi • •? 4fcC - i» «i 

170 X=X+1:IF X<19 THEN 190 
180 POSITION X-1*0:? #8i" “:X=1 
185 REH ** JOYSTICK ROUTINE ** 

190 S ì =STICK(0>:S2=STRI6(0> 

191 X3=X3-3:IF X3<20 THEN X3=220 

192 X4=X4+3:IF X4>220 THEN X4=20 

193 POKE 53248,X3:P0KE 53249,X4 

200 IF HhN=0 AND S2=@ THEN 60SUB 1000 

205 IF P1AN=1 THEN LOCATE X2,V2,Z 

210 IF f1AN=l THEN POSITION X2,V2:? #6,-PIA 

m 

220 IF CHUTE=1 THEN POSITION X2,V2-1:? # 
GiCHUTEf:FOR P=1 TO 1@0:NEXT P 
222 IF PEEK<53252)00 OR PEEK<53253X >0 
THEN 2086 

225 IF V2=22 AND P1AN=1 THEN 2000 
230 0X=X21X2=X2+<S1=7 >-(X2 >18) 

240 0V=V2 : X2=X2-:: S1=11 >H X2< 1 ) : V2=V2+1 
250 IF SI = 13 AND PIAN= 1 AND CHUTE=0 AND V 
2(19 THEN CHUTE=l:FOR T=0 TO 50:SOUND 0, 
T,120,15:NEXT T: SOUND 8,0,0,0:C=V2 

255 IF nAN=0 THEN 160 
260 PUSITIUN UX,UV-l:Y #6 ì" 

270 POSITION OX,V2-1 : ? #6;" " 

280 GOTO 160 

999 REP1 U PIAN OPENS CHUTE tt 

1000 f1AN= 1 : V2=2 : X2=X 

1010 FOR F-30 TO 0 STEP -2:SOUND 0,P,120 

,15:NEXT P: SOUND W,tì,0,0: RETURN 

2000 IF Z=ASC<BASE$> THEN GOTO 3000 

2010 FOR G=0 TO 255 

2020 SOUND 0,6,10,15:POKE 708,G 

2030 NEXT G 

2040 FOR 6=255 TO 0 STEP -3 
2050 SOUND 0,6,10,15:POKE 708,6 
2060 NEXT G 
2070 SOUND 0,0,0,0 
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2086 POSITIOH 0*0:POKE 708*104 
209© ? #8 J">>> > >SPLAT<< < < <" 

2095 ? #6*"SCORE:"*SCORE 

2100 ? #6:? #6;"PRESS start TO PLAY" 

2110 POKE 53279*0 

2120 IF PEEK<53279X>6 THEN 2116 

2130 RUH 

3000 POSITIOH 0*6 

3010 IF CHUTE=1 THEN 3500 

3020 ? #6*"VOU DIO HOT HAUE" 

3030 ? #6;"your chute open" 

3040 ? #6:? #6*" OHCH 
3050 ? #6 

3060 FOR P=0 TO 150 STEP 2 

3070 SOUND 0*P*12*15 

3080 HtXT P 

3090 SOUND 0*0*0*0 

3100 GOTO 2095 

3500 ? #6;il done ..." 

3510 ? #6i"VOU P1ANAGED TO LAND" 

3520 ? #Sj"ON THE PAD WITH VOUR" 

3530 ? #6*“CHUTE OPEN ..." 

3540 POSITION 3*10:? #6i"seore:" 

3550 B0NUS=C£75 

3560 FOR P=0 TO BONUS STEP 5 

3570 POSITION 9*10:? #6*SC0RE+P 

3580 SOUND 0 * PX25*10*15 

3590 NEXT P 

3600 SCURE=SCuRE+BONUS 

3610 SOUND 0*0*0*0 

3620 PÌAN=0: CHIJTE=0: NEXT JUP1F' 

3630 GRAPHICS X:PuKE 53248*0:PuKE 53249* 
0 

3640 ? #6;"VOU 1 UE SUCCESSFULLV" 

3650 ? #6i" LANDED 10 TIHES" 

3660 ? #6 

3678 ? #6*"your final score 
3680 ? #6*' 11 11 * SCORE 

3690 SETCOLOR 2*0*0 
3700 FOR P=5 TO 200 STEP 3 
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3710 FOF: G=P-5 TCi P+5 
3728 SOUND 8,6,10,15 
3730 NEXT 6 

3740 SETCOLOR 1,RND<0>$15,8 
3750 NEXT P 
3760 SOUND 0,0,0,0 
3770 END 

10000 RfiH=PEEK< 106>-8:A=256£RAn 
10010 GRAPHICS 0 

10020 SETCOLOR 4,3,2:SETCOLOR 2,3,2 
10030 PRINT CHR$(127)i“F'LEASE HAIT A LIT 
TLE UHILE" 

1 0040 pf: i nt chr$< 127 > j 11 xxxxxxxxxxxxxxxx* 

10050 ‘ F'OKE 752 ,1 : PR I NT 

i 0055 REP! tt COPV CHARACTER SEI FROPI ROPÌ 

IN Tu RAPI tt 

10060 FOR P=0 TO 1023 

10070 PURE A+P , PEER< 57344+P > 

10080 SOUND 0,PEERC53770 >,10,2 
10030 NEXT P:SOUND 0,0,0,0 
10100 READ X 

10110 IF X<0 THEN PORE 203,RAPI:GOTO 1022 

M 

10100 j- UH F '=0 Tu 7 
10130 READ V 
10140 PORt <XX8>+A+P,V 
10150 NEXT P 
10160 GOTO 10100 

10165 REP1 XX DATA FOR REDEFINED CHARACTE 

RS XX 

10170 DAT A 1,153,183,153,126,60,60,66,12 

10180 DATA 5,0,0,0,24,60,126,135,129 
10130 DATA 3,255,255,255,255,255,255,255 
,255 

10200 DATA 6,16,8,132,134,255,2,4,8 
10210 DATA -1 
10220 R=Rfin-8 

10225 REO XX CLEAR OUT PLAVER PI ISSI LE GR 
AF'HICS HEflORV XX 
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Ìtìii3y FuR P-512 TU 7Stì 

10240 POKE R&256+P , 0 : NEXT P 

10245 REH « POKE IN DOTO FOR CLOUD PLAY 

ERS 

10250 FOR P=0 TO 7 
10260 READ X 

10270 POKE R&25S+70+P+512 , X 
10280 POKE RJIC256+50+P+640 » X 
10290 NEXT P 
10300 POKE 204, R 
10310 RETURN 

10315 REFI « DATA FOR P.P1. GRAPHICS « 

10320 DATA 16,126,127,255,126,62,28,8 
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3D NOUGHTS 
AND CROSSES 

(Tastiera) 

Questo gioco, scritto da Roland Marriott, richiede un com¬ 
puter con una memoria di 24K; potete giocare con il com¬ 
puter o con un amico. Per vincere dovete riuscire a dispor¬ 
re quattro quadrati delio stesso colore su una riga. Vi sono 
quattro livelli, da sinistra a destra, denominati A, B, C e D. 
Per fare la vostra mossa, battete innanzitutto una lettera 
corrispondente a un livello (A-D). Poi introducete due cifre 
in corrispondenza della posizione sul livello. Le posizioni 
sono numerate da sinistra verso destra a partire da 01 a 16 
in questa maniera: 


13 

14 

15 

16 

09 

10 

11 

12 

05 

06 

07 

08 

01 

02 

03 

04 


Ecco alcuni esempi di possibili mosse, ma notate che non 
si deve premere il tasto RETURN: 

D15 

A05 

B10 

C02 

B16 

Quando vi si chiederà quanti giocatori vogliono prender 
parte al gioco, premete ‘1 ’ se volete giocare contro il com¬ 
puter, oppure premete '2' se preferite giocare con un ami¬ 
co. 
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1 RE PI # 3D NOUGHTS PHD CROSSES BV * 

2 REP1 $ ROLAND DARRIOTT * 

3 red 

4 80SUB 3900 

5 DIPI SPADE 1 '.84*2>:01D riARKX 64 >: DIPI BLOEK 
86 , 3 > : DI PI HZ<40) 

8 CL=0 

7 GOSUB 6000 
10 GRAPHICS 7+16:COLOR 1 

17 SETCOLOR 2 , 12, fa’ : SETCULUR 4,w,3 

18 SETCOLOR 1,4*8:SETCOLOR 0,2,6:SETCOLO 
R 3,3,8 

20 FOR K=0 TO 129 STEP 43 
30 FOR V=95 TO 38 STEP -1 
48 PLOT X,VsDRAWTO X+30,V-30 
58 NEXT V 
60 NEXT X 

61_PLOT 0,28:DRAWTO 28,0:PLOT 0,27:DRAMT 

U .d r' , 8 

62 FOR RT=0 TO 86 STEP 43 

63 PLOT RT+41,95:DRAWTO RT+41,30:DRAWTO 
RT+71,0:PLOT RT+48,95:DRAWTO RT+40,30:DR 
AWTO RT+70,8 

64 NEXT RT 

65 COLOR 0:SETCOLOR 4,9,2 


66 

FOR 

*7; 

=0 

TO 129 

STEP 

70 

FOR 

V 

=91 

. TO 31 

STEP 

«** 

FOR 

X : 

=1 

TO 31 

STEP 9 

74 

FOR 

A : 

=0 

TO 1 


760 PLOT 

Z-* 

■X+A,V- 

A-X+3 : 


730 NEXT A 
850 NEXT X 
900.NEXT V 
950 NEXT 2 

1 WWW FuR P=1 Tu 64: READ H,>J 
1010 SPACE(P,1>=H:SPACE(P,2>=J 
1012 NEXT P 

1015 IF PEEKX 764>=255 THEN 101' 
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1016 CLOSE #1: OPEN #1,4,0,"K:":GET #Ì,N 

1017 IF W<65 OR W>63 THEN POKE 764,255:6 
OTO 1015 

1018 IF W=65 THEN N=0:IF W=66 THEN N=16: 

IF H=67 THEN N=32 

1019 IF N=66 THEN N=16 

1020 IF W=67 THEN N=32 

1021 IF W=68 THEN N=4S 

1023 POKE 764,255 

1024 IF F'EEKC764 >=255 THEN 1024 

1025 CLOSE #5:OPEN #5,4,0,"K:“sGET #5,2 

1026 IF Z<48 OR 2>49 THEN POKE 764,255:6 
OTO 1024 

1027 POKE 764,255 

1028 CLOSE #4:OPEN #4,4,0,“K:“:GET #4,WH 
:IF NH<48 OR WH>57 THEN POKE 764,255:GOT 
0 1027 

1033 PEPI FOR TR=0 TO 2 

1034 SF-N+10*<2-48 >+WH-48: LOCATE SPACEC S 
P , 1 >, SPACEC SP , 2 > , GH : IF 6H< >0 THEN GOTO 1 

kj 15 

1035 CL-CL+i:IF CL=2 THEN CL=Ó 

1036 FOR RV=15 TO 0 STEP -1:COLOR (RV+CL 
+2 >: SETCOLOR 1,3,4 

1037 FOR TR=0 TO 2 

I tì38 PLuT 8F'AlE< sF‘ , 1 ,‘+TR , SF’AL-EC 8P ,2 TR : 
DRAWTO SPACEC SP,1>+TR,SPACEC SP,2 >-TR-3 

1039 NEXT TR:NEXT RV 

1040 CLOSE #1 

1042 FOR PQ=1 TO 64 
1044 LOCATE SPACEC PQ,1>,SPACECPQ,2>,U 
1046 P1ARKC F'Q >=U: NEXT PQ 
1050 C=CL+2 

1100 A=1 : B= 1 6 :D= 16 : E=1 :GOSUB 1400 
1105 A= 1 : B=6 1 :D= 1 : E=4 :GOSUB 1400 
1110 A= 1 :B= 13 :D= 1 7: E=4 :GOSUB 1400 
1115 A=4 : B=16 :D= 15 : E=4 :GOSUB 1400 
1120 A= 1 :B=4 : 0=20 : E=1 :GOSUB 1400 
1125 A=1 3:B=16:0=12:E=1 :GOSUB 1400 
1130 A= 1 : B=1 : D=2 1 : E= 1 :GOSUB 1400 
1135 A= 1 3 : B= 1 3 : 0= 1 3 : E= 1 : GOSUB 1400 
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1140 0=16 s B=16:D=11:E=1 : GOSUB 1409 
1145 0=4:B=4:D=19:E=1:GOSUB 14GG 
1150 0=1 :B=49:D=5:E=16:GOSUB 1409 
1155 0=4:B=52: 0=3:E=16:GOSUB 1400 

1169 0=1:B=4:D=4:E=1:GOSUB 1490 
1165 0=17:B=20:D=4: E=1 :GOSUB 1400 

1170 0=33:B=36:D=4:E=1:GOSUB 1400 
1175 fi=33:B=36:D=4:E=l:GOSUB 1400 
1180 0=49:B=52:D=4:E=1:GOSUB 1400 

1299 IF PL0VER=1 OND CLO0 THEH GOTO 150 
0:REP1 IF CL=0 THEN GOTO 1915 

1300 GOTO 1015 

1400 FOR F'Q=0 TO B STEP E 

1410 IF nORK<PQ>=C OND P10RKCPQ+D>=C OND 

P10RKC PQ+2SD >=C OND HORKC PQ+3&D >=C THEN G 

OSUB 1458 

1420 NEXT PQ 

1430 RETURN 

1450 PLOT SPOCEC PQ , 1 >+1, SPOCEC PQ , 2 >-1 : DR 
AUTO SPOCEC PQ+32D , 1 >+1, SPOCEC F'Q+3$D , 2 >-1 
: RETURN 

1509 RED PIAGHINE LOGIC 
1600 FOR PQ=1 TO 64 

1605 LOCATE SPOCECPQ,1>,SPOCEC PQ,2 >,U 

1606 IF 0=2 THEN 0=10 
1608 IF 0=3 THEN 0=50 
1610 riORKC PQ >=0: NEXT PQ 
1615 H=9 

1629 0= 1 :B=16:D=16:E=1 :GOSUB 1700 
1625 0=1 :B=61:0=1:E=4:GOSUB 1700 

1630 0=1:B=13:0=17:E=4:GOSUB 1700 
1635 0=4:B=16:0=15:E=4:GOSUB 1700 
1640 0=1 :B=4:0=20:E=l:GOSUB 1799 
1645 0=13:B=16:0=12:E=l:GOSUB 1708 

1659 0=1 :B=1: 0=2l:E=l:GOSUB 1799 

1655 0=13:B=13: 0=13:E=1:GOSUB 179@ 

1660 0= 16: B= 16: 0= 11 : E= 1 : GOSUB 1700 
1665 0=4:B=4:0=19:E=l:GOSUB 1700 

1679 0=1:B=49:0=5:E=16:GOSUB 1700 
1675 0=4:6=52:0=3:E=16:GOSUB 1700 

1680 0=1 :B=4:0=4:E=l:GOSUB 1700 
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1682 fi=1?:B=20:D=4:E=1:GOSUB 1780 
1686 H=33: 6=36:D=4:E=1:GOSUB 170© 

1688 fl=49:B=52:D=4:E=1:GOSUB 1700 

1690 GOTO 1740 

1700 EOF: PQ=fì IO B STEP E 

1705 H=H+1 

1710 SUn=nflRK< PQ >+HhF:K( PQ+D >+nfiRK< PO+2$D 
:'+mRKC PQ+3SD ) 

1720 1F SUn=30 THEN GOTO 1830 
1725 BLOEX H , 1 >=SUP1 : BLOEX H , 2 >=PO : BLOB>:' H 3 
>=D ' " 

1738 NEXT PQ:RETURN 

1740 FOR TZ=1 TO H: IF BLOB-: TZ, 1 >=150 THE 
N GOT0 1850 

1745 NEXT TZ 

1746 VZ=0:FOR TZ=1 TO H 

1748 IF _BLQB<TZ, 1>=20 OR BLOEX TZ,1>=100 
iHEN GU8UB 1o60 

1750 NEXT TZ: IF VZOO THEN GOTO 1760 
1755 GOTO 2050 

1760 FOR TZ=1 TO YZ:FOR PZ=2 TO <YZ-1> 

1765 IF HZ<TZ>=HZ<PZ> AND TZ< >PZ THEN SP 
=HZ< TZ >:GOTO 1035 

1766 NEXT PZ:NEXT TZ 

1770 IF VZO0 THEN SP=HZ<VZ>:GOTO 1035 
1825 GOTO 2050 

1830 FOR TK=0 TO 3: IF PÌHRKX F'Q+TKXD >=0 TH 
EN SF-PQ+TKXD:GOTO 1035 
1835 NEXT TK 
1850 PEPI DEFENCE 

1855 FOR TK=0 TO 3: IF PÌHRKXBLOEKTZ,2>+TK 
XBLOEX TZ,3 > >=@ THEN SP=BLOB<TZ,2 >+TKXBLO 
EX TZ , 3 >:GOT0 1035 
1857 NEXT TK 
1o6tì FOR P=0 TO 3 

1863 IF PÌHRKX BLOBC TZ , 2 >+P£BLOEX TZ , 3 > >=0 
THEN VZ=VZ+1 : HZ< VZ >=BLOEX TZ , 2 HF'XBLOEX TZ 
»3> 

1865 NEXT P:RETURN 
1890 GOTO 2050 
1950 GOTO 2050 
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£050 SP=INT<64*RN£K 1 >+l >: IF MARK<SP>=0 T 
HEN GOTO 1035 
2055 GOTO 2050 
3000 REFI COUER PAGE 
3020 GRAPHICS 2+16:SETCOLOR 4,13,2 
3030 POSITION 3,1:? #6;"###############" 
3040 POSITION 3,2:? #6;"# 30 NOUGHTS #" 

3050 POSITIOH 3,3:? #6;"# AND CROSSES #" 
3052 POSITION 3,4:? #6;"# BV ROLAND #” 
3054 POSITION 3,5:? #£;;"# MARRIOTT #" 
3060 POSITION 3,6:? #6i“###############” 
3070 POSITION 1,7:? #6j"PRESS start TO P 
LAV" 

3080 IF PEEK<53279>=6 THEN RETURN 
3090 GOTO 3080 

5000 DAT A 1,93,10,84,19,75,28,66 

5010 DATA i,73,10,64,19,55,28,46 

5020 UATA 1,53,10,44,19,35,28,26 

5030 DATA 1,33,10,24,19,15,28,6 

5040 DAT A 44,9-**, 5-j* , 84,62 , r 5 , 1, 6*6» 

505u DAT A 44, r i *, 5 -i <, 6*4,6*2,55 , ri, 46 

5060 DATA 44,53,53,44,62,35,71,26 

50 f 0 DATA 44, i'-i ', 5,24,6*2 ,15 , f 1, €> 

5080 DAT A 81 " , 9-2,9€>, £‘4,105, r 5 , 114,6>6 

5090 DAT A 87,73,96,64,105,55,114,46 

5100 DATA 87,53,96,44,105,35,114,26 

5110 DATA 87,33,96,24,105,15,114,6 

5120 DATA 130,93,139,84,148,75,157,66 

5130 DATA 130,73,139,64,148,55,157,46 

5140 DATA 130,53,139,44,148,35,157,26 

5150 DATA 130,33,139,24,148,15,157,6 

6000 GRAPHICS 2+16:? #6i“2 HUMAN PLAVERS 
11 

6018 ? #6; "OR i HUMAN UERSUS urie-" 

6020 ? #8; 11 < Tt PE 1 OR 2 >" 

6030 OPEN #1,4,0,"K:":GET #1,M: IF M<49 0 
R PI>50 THEN POKE 764,255: CLOSE #1:G0T0 6 
030 

6040 PLAVER=M-48:CLOSE #1 
6050 RETURN 


24 








r 





■ 

'□-C" 






l 

4 

--- 

--- 

--- 

--- 

--- 

RACE r - 

--- 

--- 

--- 

--- 

--- 

P 


RACE 


(Jostick) 

In questo gioco, scritto da Paul Dunning, dovete gareggiare 
contro altre tre automobili che cercano di coprire il mag¬ 
gior numero possibile di miglia. Usate il joystick per guida¬ 
re la vostra automobile in corsa. Premendo il pulsante ros¬ 
so del jostick potete cambiare marcia. Questo gioco im¬ 
piega il linguaggio macchina, perciò dovete effettuare il 
“SAVE” prima di far girare il programma. 
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2 DIPI S< 4 >,G$( 10 > ,ep: 1 00 > 

3 GRAPHICS 5:G$="LOR":POKE 752,1 
5 GOSUB 1000 

S POKE 765,2: COLOR 2: PLOT 0,0: DRARTfi 7:4, 
0:F'LOT 79,47:DRARTO 79,30:ORARIO 0,30:pn 
SITIOH 0,47:XI0 13,#6,0,0,"S:" 

7 POKE 765,3:COLOR 3:PLOT 79,29:ORARIO 7 
9,1: ORARTO 0,1:POSITIOH 0,29: X10 18,#6,0 
, 0, " S : 11 

8 POKE 712,148 

10 PP=PEEK<106 >-16:POKE 54279,PP 

20 PPI=PP:?:256: POKE 559,62 

21 FOR 0=53256 T0 5326:0 : POKE 0,7: F'OKE 0— 
3,RND<1>$255:NEXT Q 

22 POKE 53248,100:POKE 53249,100:POKE 53 
250,100:POKE 53251,50 

23 POKE 704,109:POKE 705,89:POKE 706,79: 
POKE 707,29:POKE 53277,3:POKE 559,62 

24 FOR Q=PH+1024 TO PH+2048:POKE Q,0:NEX 
T Q 

30 RESTORE 210: FOR Q=PPI+1144 TO PH+1280: 
REAO A:IF A=-l THEH 32 

31 POKE O,A:NEXT Q 

32 RESTORE 210: FOR Q=pfl+1360 TO Ffl+1536: 
READ A:IF A=-l THEH 34 

33 POKE Q,A:NEXT 0 

34 RESTORE 210: FOR Q=FfI+1576 TO PPI+1792: 
READ A:IF A=-Ì THEH 36 

35 POKE Q,A:NEXT 0 

76 RESTORE 210:FOR Q=PH+1842 TO PH+2048: 
READ A:IF A=-l THEH 40 
37 POKE Q,A:NEXT Q 
40 POKE 623,1 

50 SOUND 0,255,12,5:SOUND 1,145,12,5:SQU 
ND 2,2010,12,5 

60 FOR 0=53256 TO 53260:POKE 0,3:POKE Q- 
8,RNDC1>$255:NEXT Q 

70 POKE 704,109:POKE 705,89:POKE 706,79: 
POKE 707,29:POKE 53277,3:POKE 559,62 
75 ST=PH+1842 : HG= I NT< ST--256 > : LW=ST-256$H 
G:F’OKE 203,LR:POKE 204,HG:POKE 205,10 
80 P1 =< RND< 1 >$ 100 >+100 : F‘2=< RND< 1 >$ 180 >+1 
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00:P0=< RND<1 >$180>+100:P3=50 

85 FOR Q=0 TO 3:S< 0 >=< RND<1>$2 >+1 :NEXT Q 

87 POKE 53248,F‘0: POKE 53249,PI : POKE 5325 
8,P2:P0KE 53251,50 

88 FOR Q=1 TO 50:X=USR<ADR<Et>,7>:NEXT Q 
9@ IF Gt="HIGH" THEN GOSUE: 400: GOTO 120 
92 POKE 53278,1 

95 P0=p0+s<0>:IF P0>255 THEN P0=0 
98 X=USR< ADR< Et- > , STI CK< 0 > > 

10© P1=P1+S<1>:IF PI>255 THEN P1=0 
105 X=USR< ADR< Et > , ST I CK< 0 > > 

110 P2=P2+S<2>: IF P2>255 THEN P2=0 

120 m=ni+ 0 . 0 i 

124 X=USR‘l ADR 1 '. Et >,STIUfcX 0 > > 

129 IF STRI6<0>=0 THEN GOSUB 500 

130 POKE 53243,PO:POKE 53249,PI:POKE 532 

crfj ^ p«". 

I35 POKE 656,2:POKE 657,5:? "GEAR "iGt;" 
":POKE 656,2:POKE 657,20:? "HILES "iHI 


140 CP=PEEK<53263 >:CS=PEEK<53255 > 

150 IF CPO0 THEN 600 
160 IF CS<>4 THEN 600 
190 GOTO 90 

210 DATA 64,228,238,238,238,238,78,68,22 

9,245,255,255,233,255,255,233,255,255,24 

5,229,68,78,238,238,238 

215 DATA 238,238,64,-1 

700 f:= I NT< RND< 1 >*3 > : S< C >=< RND< 1 >?2 >+1 : RE 

fLIRN 

400 p0=p0-< S< 0 >?2 >:IF P0<0 THEN P0=255 
405 X=USR<ADR<Et >,STICKC0>> 

410 P1=P1-<S<1>$2>: IF P1<0 THEN PI=255 
415 X=USR<ADR<Et>,STICK<0 >> 

420 P2=P2-< S< 2>X2 >: IF P2<0 THEN F‘2=255 
425 X=USR< ADR(Et >,STICK<0 > > 

430 nI=nI+0.85: RETURN 

500 IF Gt= “HIGH" THEN 6t= "LOW 11 : SOUND 0,2 
55,12,10:SOUND 1,245,12,10:SOUND 2,235,1 
2,10:RETURN 

510 Gt="HIGH":SOUND 0,100,12,10:SOUND 1, 
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110,12,10:SOUND 2,90,12,10:RETURN 
600 GOTO 640 

605 SOUND 0,0,0,0 : SOUND 1,0,0,0 : SOI INO 2 , 
0,0,0 

610 POKE 53248,100:POKE 53249,100:POKE 5 
3250,180 

620 TRfiP 620:? " flNGTHER GO "i: INPUT G$: 
IF 6$( 1,1 >="V" THEN 01=0: G$="LON" : ? CHR* 
(125>:G0T0 24 
630 END 

640 J=PEEK<203 >+256£F‘EEKX 204 > 

645 FOR Q=1 TO 250:IF PEEK<J+Q>=0 THEN N 
EXT Q 

650 ST=.J+Q : HG= I NT< SV256 > : LH=ST-256*HG : P 
OKE 203,LW:POKE 204,HG 
655 FOR F-l TO 60 

660 X=USR( 1536 ) : SOUND 1, F'EEKX 53770 ) , 120 , 
15 

670 PURE 7w7,PEEK( 53770 .>:NEXT p 

700 POKE 53251,0:GOTO 605 

1000 RESTORE 2000 

1010 TRfiP 1050:P=0 

1020 F-P+l: READ fi 

1030 E$<P,P >=CHR$< fi > 

1040 GOTO 1020 

1050 RESTORE 3000 

1060 TRfiP 1090:P=1536 

1070 READ fi:POKE P,fi:F-P+l 

1080 GOTO 1070 

1090 TRfiP 40000 

1100 RETURN 

2000 DATA 104,104,104,74,72,176,11,160,0 
,177,203,136,145,203,200,200,208,247,104 

-?A 70 

PI *T P J ù_ 

2010 DftTfi 176,11,160,0,177,203,200,145,2 
03,136 

2020 DATA 136,208,247,104,74,72,176,7,19 
8,205,165 

2030 DATA 205,141,3,208,104,74,176,7,230 
, 205,165,205,141,3,208,96>, END 
3000 DfiTfi 104,160,0,173,10,210,145,203,2 
00,192,25,208,246,96,END 
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LUNAR 

LANDING 


(Joystick) 

Anche questo gioco è stato scritto da Paul Dunning. Usate 
il joystick per scendere sulla piattaforma di atterraggio blu: 
otterrete il massimo punteggio eseguendo un atterraggio 
lento e morbido (ad esempio, ad una velocità di 5). Mano¬ 
vrando a velocità troppo elevata andrete a fracassarvi. Se 
riuscite ad atterrare, il vostro punteggio dipenderà da quan¬ 
to era lenta la vostra velocità di discesa e da quale piatta¬ 
forma di atterraggio avete usato. Vi saranno fornite allora 
500 unità extra di carburante ed il gioco incomincerà di 
nuovo e terminerà quando si esaurirà il carburante. 








GIOCHIAMO CON ATARI 


HflSBBBHHII 


,80,72,40,64,40,72 , £;0,96, 40 , 85 , 48 , 53 , 80 , 
40,40,45,40,50,40,53,40,68,40 

3 DOTA 68,40,72,40,81,40,53,80,-1 

4 CLR * Din fi«100>,H«ll>,E$<60>:H$=" a 
tar- i " : F'OKE 752,1 : HI =500 

5 AA= 1 : FU=4080: TI=100 : SC=0 : HU=8 : UU=HU : F‘0 
KE 53278,1sGOSUB 900:GOSUB 4008 

6 DAT A 11,12, li, li, 14,15, 1 e , 19,21, .d2 , .83 , 
23,24 

7 DATA 25,26,29,30,31,33,33,33,33,33,33, 
31 

8 DATA 31,30,29,28,26,25,25,24,23,21,18, 
16,15 

9 DATA 14,14,14,15,17,19,21,23,24,25,26, 
27,29 

10_DATA 29,29,29,29,27,26,26,25,26,27,28 

r ùlt' 

Il DATA 27,26,25,25,23,23,23,23,23,23,23 
,21,21 

i li DAT A 20,18,1 r", 11 

29 FOR 1 = 1 TO 3 : F’OKE 53247+1,0: NEMT 1:60 
TU 495 
38 END 

120 PEPI POKE 53248,30 

200 RÈO ««SPLAVER SETUP ***** 

210 POKE 559,0:POKE 718,148:POKE 712,0 
215 POKE 752,1:AL=110 

230 RESTORE 235:FOR S2=l TO 60:READ S3:E 
p: S2 , S2 >=CHR$< S3 > : NE NT S2 

235 DATA 104,104,104,74,72,176,11,160,2, 
177,203,136,145,203,200,200,208,247,104, 

-?A ~?-Z< 

I *T » 1 il. 

236 DATA 176,11,160,253,177,203,200,145, 


203 

136 



237 

DATA 

136,208 

,247,184,74,72,176,7,198 

, 205 

l 



p "7 O 

DATA 

165,205 

r 141 r y r d0b r 104 r i* 4 r 1 ( E* * \ # 

230 

205, 

1 b5 * d'05 j 

141,0,208,96,0,6 

240 

A=PEEK<106 >- 

16:POKE 54279,A:POKE 204 


, A+4 : POKE 203,8 : PT1BASE=A*256 
250 POKE 53277,3:POKE 704,40:POKE 53248, 
150:POKE 205,RND<1>*130+70:POKE 53256,0 
260 FOR I =PNBASE+1024 TO PPIBASE+1280: POK 
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E INEXT I 
270 RESTORE 290 

289 FOR I=FflBASE+l 155 TO PHBASE+1209: REO 
D BsPOKE I,B:NEXT I 

290 DATA 8,8,60,60,126,126#195#135#126#1 
26 # 60 # 60 # 24 # 24 #126 #126 #165 #165 

300 DATA 165#165#165,0,0#0,0,0,0,0,0,0,0 
, 0,0,0,0,0,0,0 

310 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0 

320 POKE 559,62:GOTO 390 
370 ST=ST I CK( Gì > 

380 CO=PEEK<53252>:IF CO>0 THEN GOSUB 50 


385 POKE 53278,1 

390 IF AA=1 THEN FOR Q=0 TO 100: R=IJSR< AD 
R< ET>,14>: SOUND 0,255,8,15:NEXT Q: AA=0: A 

=USR(ADR<ET>,11>: SOUND 0,0,0,0 
400 POKE 53273,3 

419 IF ST=14 AND FU>=30 THEN SOUND 0,255 
,8,15: buT U 4l b 

415 SOUND 0,0,0,0 

420 IF ST=7 OR ST=11 AND FU>=5 THEN SOUN 
D 1,100,8,3:GOT0 436 

425 SOUND 1,0,0,0 

430 IF FLK =0 THEN FU=0:6OTO 455 

431 IF ST=7 THEN HU=HU+0.05:FU=FU-5 

432 IF ST=11 THEN HU=HU-0. 05:FU=FU-5 
440 HF-HP+HU: IF HP> 1 THEN HP=0:SF;=7 
450 IF HP<-1 THEN HP=0:SR=11 

455 UU=UU+0.02:UP=UP+UU: IF Up >1 AND SR=1 
5 THEN UF-0:SR=13:AL=AL-1 

456 IF UP>1 AND SR=U THEN UF-0:SR=9:AL= 
Al- ì 

457 IF UP>1 AND SF:=7 THEN UP=0: SR=5: AL=R 


458 IF UP<-1 THEN UF-0:SR=14:AL=AL+1 
460 IF ST=14 AND FU>29 THEN UU=UU-0.05:F 
U=FU-30 

480 A=USR< ADR< ET >, SF: > : SR= 15 

485 ? " SCOF:E= " iSC; " " iCHRTX 127 >; " UUEL 

= " ; UUX100 i " 11 
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IB 


B 

a 

a 

al 

IH 

IH 

■ 

■ 

■■■■ 

■■■■ 

B 

a 

a 

■ 

a 

■ 

ai 

11 


486 ? " FUEL =“;FU";CHR*<127>;" HUEL 
= " i HU# 100 ì " 

487 ? " TIP1E =" ; INT< TI >; 11 " iCHR*< 127 >; " 
ALT =“ìHLj" " 

488 'L-HR$< 88 ì UHR$'% 88 ì L-HR$‘-. 88 ì 

489 TI=11-6.1 

490 IF TI=0 THEN 720 
492 GOTO 370 

495 GOTO 210 

500 IF 00=4 ANO UU<0.5 THEN 600 
505 IF 00=4 AND W>0.4 THEN 7@@ 

510 IF 00=2 THEN 700 
520 RETURN 

800 FUR U=1 Tu 8 ■ FuR H=855 TU 100 8TEF' — 
1 

610 SOUND 0ili. 10,15:SOUND 1 ,N-18,10, 15:S 
OUND 8,11-20,10,15 
620 NEXT W:NEXT Q 

630 SS=0.5-UU:SO=SC: IF SS=0 THEN SC=SC+5 
0 : GOT0 650 

640 IF AL<5 THEN SC=SC+<SSX100)£10:GOT0 
650 

642 IF AL<20 THEN SC=SC+< SS$100 >$20: GOTO 
650 ■ 

644 IF AL<60 THEN SC=SC+<SS$1@0>$5 
650 IF FLK2500 THEN FU=FU+(SC-S0X2| 

655 FOF: Q=0 TO 3:SOUND 0,0,0,0:NEXT Q:AA 
=l:P0KE 53278,lsGOSUB 800:GOTO 210 
700 FAR 0=0 TO 50:F'OKE 712,RND< 1 >X255:S0 
UND 0,255,8,15:SOUND 1,240,8,15:SOUND 2, 
220,8,15:NEXT Q 

705 SOUND 0,0,0,0: SOUND 1,8,0,0: SOUND 2, 
0,0,8 

786 IF FU<30 THEN FU=0:GOTO 720 

710 POKE 712,0:AA=l:GOSUB 800:GOTO 218 

720 POKE 712,0:GOTO 810 

300 i v ip=0: HF-0: HU=8: UU=0: TI=1 @0: RETURN 

810 IF SO>HI THEN GOSUB 1010 

820 GRAPHICS 17:SETC0L0R 4,1,0 

830 ? #6;" GAP1E OUER" 

835 ? #6:? #6j" HIGH SCORE "jHI 

836 ? #6:? #6i" ";H$ 
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L 

XX 

XX 

XX 

II 

XI 


n 

H 

H 

H 

H 



840 ? #6:? #6i" PRESS START " 

850 POKE 53248#0 

880 IF PEEK<53279>=6 THEN RESTORE :GOTO 
5 

870 GOTO 868 
889 END 
900 RETI IMTRO 

91 tì tìRAPH I L'S 17 ! SET COLOR 4 # 1 * 0 : E=0 
920 ? #6*" LUNAR LANDER " 

930 ? #6:? #6 ì " BV P.DONNING SEP.82" 

940 ? #6:? #8 i" USE JOYSTICK (0)" 

950 ? #6:? #6;" u p 

960 ? #8:? #8i " •••■ " 


■? -H-C - » 1 


ett 


S7tì Y #b; 

980 ? #8 

985 POKE 53248#0 

990 READ n:IF H<0 THEN 998 


r i 9 Kit- » 


992 

READ P 




995 

p 

SOUND 0,ri* 

18* 

15:FOR pp 

997 

GOTO 990 




998 

? #6 i " 

90 

Od 1 

uck 11 

999 

FOR X=1 TO 

13 

: FOR 

V—0 

: SOUND 8*V*18* 

15: 

NEXT 

v:ne: 

I0i0 

: RETURN 




1000 

RESTORE 1 

•‘GOTO 990 

1010 

.. TI 

=30 

: GRAPHICS 

#1*0 

: ? #6 i 11 

GREAT 

SCORE 

1 S H I : 

=sc 




1011 

? #6 i " a 

b 

e d 

e f 9 

1012 

? #6 




1813 

? #6 i " i 

J 

k 1 

ni n o 

1014 

? #6 




1015 

? #6*" 9 

r 

•=• t 

U V i.M 

1018 

? #6 




1017 

? #6 ì 11 y 

—v 

■ 

R 

1018 

POKE 5324 

8*0 



1020 

FOR Q=10 

TO 

245: 

SOUND 

OUND 

1#Q#8*15: 

SOUND 2 

* Q+ 10. 

1030 

POSITION 

X#Y 

:? #6;"XXi 

V+l : ' 

? #6*"X":POSITION 

X+2*' 


p ET " 
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OSITIOH X*V+2: ? #6i"XXX" 

1040 IF STICKX8X>7 THEN 1859 

1045 POS ITI OH X,V:? #6 POSITION X* 

V+l:? ...POSITIOH X+2,V+l:? #0;" ":P 

OSITIOH X,V+2:? #Si" 

104S IF X>13 AND V=7 THEN X=l:V=i:GOTO 1 
050 

1047 IF X>13 THEN X=1:V=V+2*GOTO 1050 

1048 X=X+2 

1050 IF STICK 1 ' 0 X >11 THEN I960 

1055 POSITIOH X,V:? #6i" ": POSITIOH X, 
V+l:? #S;" 11 :POSITION X+2,V+l:? #6;" ":F* 
OSITIOH X,V+2:? #6;" 

1056 IF X<3 HND V=1 THEN X=15*V=7:GOTO 1 
060 

1057 IF X<3 THEN X=15:V=V-2:GOTO 1060 

1058 X=X-2 

I960 POSITION 6,10:? #6;"TIPIE ";INT<TI>; 

" ":TI=TI-0.1:1F TI=9 THEN 1100 

1065 FOF: PP=9 TO 20:NEXT PP 

1069 IF STRIG<0X>0 THEN 1080 

1971 LOCATE X+l ,V+l,XX: IF XX=ASC< "E" ') TH 

EH 1108 

1072 IF XX=HSC< "R" ) AND LEN<H*»t THEN H 
$=H$< 1, LEN'Ì m >-1 > : GOTO 1089 

1073 IF LEN<H$»10 THEN 1080 
1075 H$<LEH( H$ >+1>=CHR$( XX) 

1980 POSITION 4,11:? #6;H*i" " 

1099 GOTO 1030 

1100 FOF: Q=0 TO 3:SOUND Q,0,0,0:NEXT Q 
1110 RETURN 

4000 GRAPHICS 5 
4010 RESTURE 6:CuLuR 2 
4020 FOR X=0 TO 79 
4030 READ V 

4040 PLOT X,39:ORANTO X,V 
4050 NEXT X 
4060 COLOR 3 

4070 PLOT 18,32:DRANTO 23,32 
4080 PLOT 50,28:DRAHTO 54,28 
4090 PLOT 67,22:DRAHTO 73,22 
4100 RETURN 
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DECISION 

MAKER 


(T astierà) 

Questo programma vi aiuterà a prendere decisioni su un 
determinato problema. Innanzitutto vi domanda quante so¬ 
no le opzioni tra cui non riuscite a decidervi, poi vi chiede 
quanti sono i fattori che influenzano la vostra decisione (ad 
esempio, il prezzo dell'uovo, la qualità, la grandezza). Infi¬ 
ne vi domanda quale valore attribuite ad un determinato 
fattore. Risponderete introducendo un numero compreso 
tra 0 e 100. Dopo aver fornito tutti i dati ed elencate tutte le 
varie opzioni, sul video in negativo vedrete apparire la deci¬ 
sione che il computer ritiene che voi dovreste prendere. 
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10 REP1 DECISION FlflKER II #* 

20 RED tt BV CHRIS CfìLLENDER ** 

21 REPI ## flOflPTED BV P.BUNN « 

22 REFI immmtfm*********** 

25 DIPI fi$<32>:GOSUB 30:GOTO 80 
30 GRAPHICS 0 

40 SETCOLOR 2*8#2:SETCOLOR 4,8,2 
50 PRINT ,“DECISION FlfìKER" 

SO PRI NT , " #«#####*$«## " 

70 PRINT 
75 RETURN 

80 PRINT "HOW P1ANV OPTIONS TO CHOOSE FRO 

ri" 

82 TRfiP 82:INPUT fi$:0=Ufil_<tì$> 

90 PRINT "HOW HfiNV FflCTORS INFLUENCE DEC 
ISION" 

100 TRfiP 100:INPUT fi$ 

110 F=UfiL(fi* > 

120 DI PI 0*< 0&32 > , F$< F$32 > 

130 0$< 1 >= " " : 0*< 0*32 >= " " : Of-< 2 >=0* 

140 F$< 1 >=" " : F*< F#32 >= " 11 : F$< 2 )=F$ 

150 GOSUB 38 

160 FOR fi=l TO 0 

170 ? "ENTER NftHE OF OPTION "ifi 

180 TRfiP 180:INPUT fi*sTRfiP 40000 

190 0$< C fi-1 >#32+1 ,< ft-1 >*32+31 >=ft$ 

200 NEXT fi 

210 GOSUB 30 

220 FOR fi=l TO F 

230 ? "ENTER NfiPlE OF FACTOR "ifi 

240 TRfiP 240:INPUT fi*:TRfiP 40000 

250 F*<Cfi-1>*32+1,<fi-1;*32+31>=fi* 

260 NEXT fi 
270 GOSUB 30 
280 Din FKO,F> 

290 FOR fi=l TO 0 
300 FOR B=1 TO F 
310 GOSUB 30 

320 ? "HOW WOULD VOIJ RATE " ;F*< < B-l >#32+ 
1B-l >#32+31 > 
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330 ? "OH THE “;0$<<R-l>*32+l,<fl-l)*32+3 

Ì ) 

348 INPUT U 
350 f1(fliE:)=U 
360 NEXT 6 
370 NEXT fi 
360 UUoUB 30 

330 ? "HERE IS HHflT I THINK VOU SHOULD D 
Q:-" 

400 POR fi=i TO O 
410 0=0 

420 FOR 6-1 TO F 
430 C=C+n<fl#B> 

440 NEXT B 

450 IF OTOP THEN TOP=C:NO=fl 

460 NEXT fi 

470 FOR H=1 TO 0 

480 IF H=N0 THEN FOR P=1 TO 31 :L=<fi-1>$3 
2+p:ft$=0$< L*L>:K=flSC< HT>+128:Q$<L#L >=CHR 
£< K > : NEXT P 

485 IF fl=N0 THEN FOR P=1 TO 31 :!_=<fi-1>X3 
2+P:K=fiSC<0T(L j L > > : IF K= 160 THEN 0$<L # L > 

_ li u 

486 IF H=N0 THEN NEXT P 

490 ? 0$<<fì-l >X32+lAfl-l >$32+31 > 

500 NEXT fi 
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SAFE CRACKER 

(Tastiera) 

Questo magnifico gioco è stato scritto da Terry Davies e ri¬ 
chiede un computer con 24K di memoria. 

Lo scopo consiste neH’impossessarsi del maggior numero 
possibile di monete dalle casseforti di Mrs. Warren Fitzdo- 
body. Per poter aprire una cassaforte dovete indovinare tre 
numeri della combinazione. Su richiesta del computer inse¬ 
rite il vostro primo numero: se esso risulterà essere entro 
± 5 dal numero vero sentirete lo scatto del meccanismo 
della cassaforte. Se fate più di 10 tentativi per ogni numero, 
scatterà l'allarme ed arriverà la polizia (dalla finestra potre¬ 
te vedere lampeggiare la luce intermittente di allarme delle 
loro automobili). Se riuscite ad indovinare il primo numero, 
continuate con il secondo e poi con il terzo. Se riuscite ad 
indovinare i tre numeri (una probabilità su 970.299) la cas¬ 
saforte si spalancherà e riceverete alcune monete. Andate 
in un’altra stanza e tentate di nuovo. In questo gioco ci vuo¬ 
le fortuna, ma anche intelligenza. L’intelligenza, infatti, è 
necessaria per comprendere la logica delle combinazioni 
di apertura. Dopo aver giocato allo scassinatore ci pense¬ 
rete due.volte prima di praticare questa “arte” sul serio! 


1 REFI 

2 REFI « SAFE CRACKER - ** 

3 REFI « HRITTEN BV TERRV DAUIES ** 

4 refi m*m*mm******m**#*m* 

5 GRAPHICS 2!FLASH=@:P= 1 @:DIFI A*<5>,0$<3 
290 > , C< 4 > ,F'T $(. 62 > : IT=0 

10 POKE 708,P+10:POKE 709,145:POKE 752,8 
:POKE 712,145:POKE 710,145 
15 ? 11 Press start 11 

20 POSITIOH 4,4:? #6i"SAFE CRACKER" 


38 
















:□-; l 






1 

CL 






SAFE CRACKER 






T] 

L 

_ 











J 


25 POSITIOH 4,6:? #6 ì "sate cracker": SOSU 
B 6806 

38 IF PEEK<53279>=6 THEN 1006 

35 F-P+0.1 :FLASH=FLASH+1:IF FLASH>58 THE 

N POKE 709,P: IF FLASH>50 THEN F'QKE 708,1 

45:FLASH=-20:POKE 53279,6 

40 IF FLASH=0 THEN POKE 709,145:IF FLASH 

=0 THEN POKE 708,P:POKE 53279,8 

58 IF P<200 THEN 38 

1000 6RAPHICS 7:PX=4:LC=40:X=0:V=0 

1005 60SUB 5100 

1007 ? "PLEASE WAIT." 

1910 GOSUB 3000W 

1020 FOP. 1=0 TO 4: POKE 708+1 ,C< I >: NEXT I 
1030 GOSUB 5199 

1040 POKE 752,1:POKE 709,0:? :? “ HE 
RE IS THE SAFE...SHHHHHH! ! !":FOR W=1 TO 
1580:NEXT N: ? CHR$<125 > 

1043 ? " VOU SETTER PUT THE SIDE LIGHT 0 
N“: ? " THERE'S NO ONE AROUND..PRESS STAR 
T":POKE 53279,6 

1045 IF PEEK<53279>06 THEN 1045 

1058 POKE 709,202:? CHR$<125 > i "THAT 1 S BE 

ITER VOU CAN SEE WHAT VOU":? "ARE DOING 

NON":FOR M=1 TO 2000:NEXT H 

1855 J CHR$<125):GOTO 2000 

1060 GOSUB 6808 

1070 ? CHR$<125 >i"PRESS START TO HAUE AN 
OTHER CRACK" 

1071 POKt 710,30:FOR N=1 TO 200:NEXT W:F' 
OKE 710,138:FOR M=1 TO 99:NEXT HsPOKE 71 
8,148:FOR W=1 TO 250:POKE 710,138 

1072 FOR H=1 TO 99:NEXT W:POKE 710,148:F 
OR W=1 TO 250:NEXT W:POKE 718,138:FOR H= 
1 TO 100:NEXT HsPOKE 710,148 

1073 FOR W=1 TO 258:NEXT W:POKE 710,138: 
FOR H=1 TO 100:NEXT W:POKE 710,148 

1074 POKE 53279,0:IF PEEKX 53279X>6 THEN 
1072 

ltì75 GUTU 1020 

2000 A=INT<RND<1>*81>+10:B-INT<RND<1>$81 
>+10:C=INT<RND<1>£81>+10:J=8 

2003 J=J+1 : ? " NHATS VOUR FIRST NUTTBER 

39 









■bi 

[ìbi 

■■■ 

■■■ 

■■■ 

■■i 

■■i 

■■■ 

IBI 

■■■ 

■■■ 

'-i GIOCHIAMO CON ATARI !=: 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

IBI 

Baia 

IBI 

IBI 

BHB 

in 

11 

Ti 

:i ; 

33 

li 

: INPUT N:IF N>93 OR N<1 

1 

'HI 

EN 

iL 

:@ 

1 


63 

2005 IF J=11 THEN GOSUB 3350:GOTO 1060 

2006 IF NOR THEN 2008 

2007 GOSUB 3850:GOTO 2433 

2008 IF N>fl-5 AND N<fì+5 THEN GOSUB 3900: 
GOTO 2003 

2010 IF N>fì+5 OR N<fì-5 THEN GOSUB 4000:6 
OTO 2003 

2011 GOTO 2003 
2433 J=0 

2500 9=9+1 : ? "NHfìTS VOUR SECOND NUPIBER" : 
INPUT N:IF N>93 OR N<6 THEN 2509 

2519 IF .2=11 THEN GOSUB 3950:GOTO 1060 

2520 IF NOB THEN 2530 
2525 GOSUB 3850:GOTO 2993 

2530 IF N>B-5 HND N<B+5 THEN GOSUB 3900: 
SOT0 2500 

2535 IF N>B+5 OR N<B-5 THEN GOSUB 4000:G 

OTO 2580 

2540 GOTO 2500 

2393 J=0 

3000 ? 11 NHfìTS VOUR THIRD NUPIBER": INPUT 
N:IF N>33 OR N<0 THEN 3909 

3005 9=9+1 

3010 IF .J=l 1 THEN GOSUB 3350:GOTO 1060 
3020 IF HOC THEN 3030 

3025 GOSUB 3850:? "VOLI HfìUE OPENED THE 
AFE":.2=0:COLOR 0:PLOT 41,30:DRfìNTO 33,1 

3026 J=J+1:IF J>3 THEN 3028 

3027 DRfìWTO 41+9,16:DRHMTO 41+9,39:GOTO 
3026 

3028 C0=INT<RND<0>$200 >+100: ? CHR$<125 >; 

"NELL DUNE , THERE NfìS "iCOi" COINS IN": 
? "THfìT SfìFE ! !." 

3023 TT=TT+CO:? "NON TRV THIS OHE.": 

FOR N=1 TO 1000:NEXT H:GOTO 1020 
3030 IF N>C-5 AND N<C+5 THEN GOSUB 3300: 
GOTO 3000 

3035 IF N>C+5 OR NCC-5 THEN GOSUB 4000:6 

OTO 3000 

3040 GOTO 3000 
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3850 FOF: T=1 TO 100: SOUND 0,T,10,8:NEXT 
T:? "VOLI ARE RIGHT":SOUND 0,0,0,0:RETURN 


3900 FOR S=20 TO 15 STEP -4:NEXT S:SOUND 
0,N,10,14:FOR W=1 TO 3:NEXT H:SOUND 0,0 
,0,0:RETURN 

3950 ? "BLIHEV ! ! VOU HAUE SET THE ALAR 

FI OFF":? "LETS SCARPER_THE POLI CE ":R 

=0 

3960 ? "VOU NICKED ";TTi" COINS FROP1 THE 
SAFES";:TT=0 

3998 FOR N=20 TO 15 STEP -4:NEXT N:SOUND 
0,N,10,14:FOR W=1 TO 33:NEXT H:SOUND 0, 

9,0,0:R=R+l:lF R=20 THEN RETURN 

3999 GOTO 3998 

4000 ? " VOU ARE WRONG TRV AGAIN !":R 
ETURN 

5100 DL=PEEKX 560 >+PEEK< 561 >*256: P1EH=PEEK 
<106 >*256:DAT=PEEK<DL+4 >+256*PEEK<DL+5> 
5108 RESTORE 5200:FOR P=1 TO 62:READ A:P 
TP: P , p >=CHR$( A > : NEXT P 
5110 ST=DAT+V*LC+1 NT< X.- PX > : RETURN 

5199 GOSUB 5110 : A=USRC ADR 1 ' PT$ >, ST , ADRC Dt 
>,BVT,LIN,LC>:RETURN 

5200 DATA 104,104,133,204,104,133,203,10 
4,133,206,104,133,205,104,104,133,207,10 
4,104 

5210 DATA 170,104,104,133,208,164,207,13 
6,11" ( ,205 

5220 DATA 145,203,136,192,255,208,247,24 
,165 

523£i DATA 203,lui,208,133,203,144,2,230, 
204,24,165,205,101,207,133,205,144,2,230 
5240 DATA 206,202,203,219,96 

6000 FOR J=1 TO 8:SOUND 0,47,10,8:FOR L= 

1 TO 100:NEXT L:SOUND 0,64,10,8:FOR L=1 
TO 100:NEXT L:NEXT J 

6001 SOUND 0,0,0,0:RETURN 

20000 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20001 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20002 DATA 0,0,0,12,0,0,0,0,0,0,0,0,0,0, 
0 

20003 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,195 
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LL 

J_L 

_l_L 


_ 


XE 

II 


n 

j 


, 0 

200S4 DOT fi 63 , 255 * 207 *255 *63 ,255 ,207 , 255 
, 63 , 255 , 207 , 255,132, 132 , 0 

20005 DATfi 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20006 DOTA 0,0,0,0,0,0,0,0,195,12,63,255 

, id0 ( , ii55,6 ò 

20007 DPTP 255,207,255,63,255,207,255,19 
2,192,192,0,0,0,0,0 

20008 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20009 DPTP 0,0,0,195,12,63,255,287,255,6 
3,255,207,255,63,255 

20010 DPTP 207,255,192,192,192,0,0,0,0,0 
,0,0,0,0,0 

20011 OPTA 0,0,0,0,0,0,0,0,0,0,0,0,0,195 
,12 

20012 DPTP 63,255,207,255,63,255,207,255 
,63,255,207,255,192,192,192 

20013 DPTP 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20014 DPTP 0,0,0,0,0,0,0,0,195,12,63,255 
,207,255,63 

20015 DPTP 255,207,255,63,255,207,255,19 
2,192,192,0,0,0,0,0 

20016 DPTP 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20017 DPTP 0,0,8,195,12,63,255,207,255,6 
3,255,207,255,63,255 

20018 DPTP 207,255,192,192,192,0,0,0,8,0 
,0,0,0,0,0 

20019 DPTP 0,0,0,0,0,8,63,255,207,255,19 
2,0,0,195,12 

20020'DPTP 63,255,207,255,63,255,207,255 
, to , ^55 , £iw r , ii55,192,19iil, 192 

20021 DPTP 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20022 DPTP 0*63,255,207,255,192,0,0,195, 
12,63,255,207,255,63 

20023 DPTP 255,207,255,63,255,207,255,19 
2,192,192,0,0,0,0,0 


20024 

DPTP 

0, 

0j 

r 0 j 

*8, 

0, 

0, 

0,0 

,0,0,0, 

63 

,25 

5, 

•“•e 

i.U i ,i_-- 

55 












20025 

DPTP 

19 

2j 

r 0 j 

*8, 

19 

5, 

12, 

0,0,0,0 

,0 

,0, 

0, 

0,0,8 













20826 

DPTP 

0, 

0j 

r 0 j 

,19 

d r 

19 

2,0 

,0,0,0, 

0,i 

0,0 

,0 

,0,0 













28027 

DPTP 

0, 

0i 

*0i 

,8, 

0, 

0, 

63, 

255,287 

,2! 

55, 

19 
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2*0*0#135# 12 

20028 DATA 63*255*207*255*63*255*207*255 

* 6 -l'1 255*2@i■ * 255* 182* 182 * 1 82 

20028 DATA 0*0,0*0*0*0*0*0,8*3*255*255*2 
40*0*0 

20030 DAT A 0*63* 255 *207 * 255 * 192*0*0*195* 
12 * 63 * 255 * 207* 255* 63 

20031 DATA 255*207*255*63*255*207*255*19 
2*182*192*0*0*0*0*0 

200i2 DATA 85*85*85*85*92*0*0*12*0*0*0*6 
3*255*207*255 

20033 DATA 192*0*0*195*12*63*255*207*255 

* 63 * 255* 207 * 255* 63 * 255 

20034 DAT A _ 207 *255 *132*192*192*0*0*0*0,0 

j y._. 3 uj 3 y*j 3 c'j 3 y ki 

20035 DAT A 0,8*12*0*0*0*63*255 * 207 * 255 * 1 
32*0*0*195*12 

20036 DATA 63*255;207*255*63*255*207*255 

* &8 * 255 * 20 ( * 255 * 192* 132 * 192 

20037 DATA 0*0*0*0*0*30*0*8*0*48*0*0*3*0 


28038 DATA 0 * 63*255 * 207*255*192*0*0*135 * 
12 * 63 *255* 207* 255 * 63 

20033 DATA 255*207*255*63*255*207*255*19 
2*192*192*0*0*0*0*0 

28840 DATA 88 * 0 *0 * 0 * 192 * 0 *8 **8*1*85* 85 * 
85 * 80 * 0 

20041 DATA 8*0*0*195,12*63*255*207*255*6 
3 * 255 * 207 * 255 * 63 * 255 

20842 DATA 207*255*192*192*132*0*0*0*0*0 

* 80 * 3 * 135 * 3 * 8 

28043 DAT A 9 * 0,8 * 132*1*64,63 * 255 *240,255 
*132*0*8*135*12 

28044 DATA 63*255*207*255*63*255*207*255 

* 63 * 255 * 207* 255 *132*132*192 

20045 DATA 0*0*0*0*0*80*16*51*3*0*0*0*0* 
132*1 

20046 DATA 63 * 85*85 * 240 *255*192*8*0*195* 
12*0*0*0*0*0 

29047 DATA 0,0*0*0*0*0*0*0*192*132*0*0*0 

* 8 * 0 

20048 DATA 80*4*192*12*0*0*0*0*48*1*69*8 
5*85*240*255 
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20649 DATA 192,0,0,195,12,63,255,207,255 
,63,255,207,255,63,255 

20050 DATA 207,255,192,192,192,0,0,0,0,0 
,80,85,192,48,0 

20051 DATA 0,0,0,12,1,69,31,85,240,255,1 
92,0,0,195,12 

20052 DATA 63,255,207,255,63,255,207,255 
,63,255,207,255,192,192,192 

20053 DATA 0,0,0,0,0,38,63,3,192,0,0,0,0 
,12,1 

20054 DAT A 69,35,85,240,255,192,0,0,195, 
12,63,255,207,255,63 

20055 DATA 255,207,255,63,255,207,255,19 
2,192,192,0,0,0,0,0 

20056 DATA 88,20,192,192,0,0,0,0,3,1,69, 
85,85,240,255 

20057 DAT A 192,0,0,195,12,63,255,207,255 
,63,255,207,255,63,255 

20053 DATA 207,255,192,192,192,3,192,0,0 
,0,88,16,195,0,0 

20059 DATA 0,0,0,3,1,69,85,85,240,255,19 
2,0,0,195,12 

20060 DATA 63,255,207,255,63,255,207,255 
, €>8,255,20 {, 255 ,192,192,192 

20061 DATA 48,0,0,0,0,88,80,0,170,170,17 
0,170,170,170,194 

20062 DATA 69,0,85,240,0,0,0,0,195,12,63 
,255,207,255,63 

20063 DATA 255,207,255,63,255,207,255,19 
2,192,195,0,0,0,0,0 

20064 DATA 88,64,192,0,88,2,64,0,0,2,69, 
85,85,240,255 

20065 DATA 192,0,0,195,12,63,255,207,255 
, 63,255,207,255,63,255 

20066 DATA 207,255,192,192,240,0,0,0,0,0 
, 88 , ■' €■, 12 ,192,88 

20067 DATA 2,64,0,0,2,69,85,85,240,255,1 
92,0,0,195,12 

20068 DATA 63,255,207,255,63,255,207,255 
, 6^3,255,207,255 ,192,195,0 

20069 DATA 0,0,0,0,0,88,0,0,0,88,2,64,0, 
0,2 

20070 DATA 69,85,85,240,255,192,0,0,195, 


44 





SAFE CRACKER 


12 , 0 , 0 , 192 , 0,6 

20071 DOTA 0,0,0,0,12,0,0,8,240,192,0,0, 

0,0,0 

20072 DATA 88,0,0,0,88,2,64,0,0,2,69,85, 
85,240,255 

20073 DATA 192,0,0,195,12,63,255,255,255 
,63,255,207,255,60,15 

20074 DATA 207,255,287,0,0,0,0,0,0,0,88, 

0,0,0,88 

20tì t 5 DATA 2,6*4,0,0,2,69,85,85,240,255,1 
92,0,0,3,12 


20876 

TATA 

63 ,255,207,255,63 

,255,207,2 

55 

,56,15 

',207, 

255,240,192,6 



20077 

DATA 

0,0,0,0,0,90,170, 

170,170,88 

,2 

,64,0, 

0,2 




20078 

DATA 

69,85,85,2401,255 , 

192,0,0,3, 

12 

, bJ , ì-j 

15,207 

,255,63 



2 fi fi 7 H 

DATA 

255,207,255,56,15 

,20i ( ,255,0 

,0 

,192,6 

1,0,0, 

0,0 



20080 

DATA 

85 , 85,85 , 85,88,2, 

64,0,0,2,7 

4, 

255,25 

'5,240 

,255 



20081 

DATA 

192,0,0,3,12,63,2 

55,207,255 

,6 

3,255, 

207,2 

55,56,15 



20082 

DATA 

207,240,192,0,192 

,0,0,0,0,0 

,0 

,0,8,0 

1,0 




20083 

DATA 

2,64,0,0,2,85,85, 

85,80,255, 

19 

2,0,8, 

3,12 




20084 

DATA 

63 , 255 , 2017 , 255 , 63 

,255,207,255 

,56,15 

, 20 { , 

12,3,192,192 



20085 

Ti 

DATA 

0,0,0,01,0,0,0,0,0 

,0,2,64,0, 

0, 

20086 

DATA 

0,0,0,0,0 , 0,0,0,3 

,12,63,255 

,2 


y r 3 3 & 

20087 DAT A 255,207,255,56,15,192,0,3,192 
,192,0,0,0,0,0 

20088 DATA 0,0,0,0,0,2,64,0,0,0,0,63,255 
,207,255 

20089 DATA 192,0,0,3,12,63,255,207,255,6 
3,255,207,255,56,12 

20090 DATA 0,0,195,192,192,0,0,0,0,0,0,0 
j u j y i u 

20091 DATA 2,64,0,0,0,0,63,255,207,255,1 
92,0,0,3,12 
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20114 DATA 
i y t y j 0 

20115 DATO 

■4 -i 

Xil 

20116 DATA 
,132,192 

20117 DATA 
0 

20118 DATA 
0 

20113 DATA 
, 0 , 0 , 0,0 

20120 DATA 
0 

20121 DATA 
,12 

20122 DATA 
, 0 , 0,0 

20123 DATA 
12 

20124 DATA 
,132,132 

20125 DATA 

0 

20126 DATA 

0 

20127 DATA 
, 0 , 0 , 0,0 

20128 DATA 

0 

20123 DATA 

4 “i 

J li 1 

20130 DATA 
, 0 , 0 , 0,0 

20131 DATA 

i iì 

20132 DATA 
32,252,63 

20133 DATA 
2,64,0,0,0 

20134 DATA 

0 


12,12,3,192,192,0,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,12,3 
0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
0,0,0,11,12,12,12,3,192,192,0 
0,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0,0,0,3,12,0,0,0,0,0,0,0,0,11 
12,12,3,192,132,0,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,12,3 
0,0,0,0,0,0,0,0,0,0,2,64,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 12 , 0 , 0 , 0 , 0 , 
0,0,0,11,12,12,12,3,192,132,0 
0,0,0,0,0,2,64,0,0,0,0,0,0,0, 
0,0,0,3,12,0,0,0,0,0,0,0,0,11 
12,63,255,192,132,0,0,0,0,0,0 
2,64,0,0,0,0,0,0,0,0,0,0,0,3, 
0,0,0,0,0,0,0,0,11,12,12,51,1 
192,135,135,15,192,0,0,0,0,0, 
0,0,0,0,0,0,0,0,3,12,0,0,0,0, 
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0 

£0158 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20159 DATA 0,0,0,4,12,194,128,0,48,0,240 

, 0 , 0 , 0,0 

20160 DATA 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

0 

20161 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3 

20162 DATA 0,160,0,0,0,12,0,0,0,0,0,0,0, 

0,0 

20163 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 
0 

20164 DATA 0,0,0,0,0,0,0,0,0,0,48,40,0,3 

,0 

40165 DATA •'■,255,255,255,252,0,0,0,0,0,2 
,64,0,0,0 

20166 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20167 DATA 0,0,0,0,0,12,10,0,0,192,3,192 

,0,0,0 

20168 DATA 0,0,0,0,0,2,64,0,0,0,0,0,0,0, 

8 

20169 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20170 DATA 51,0,128,0,48,3,192,0,0,0,0,0 

,0,0,0 

20171 DATA 2,64,0,0,0,0,0,0,0,0,0,0,0,0, 

0 

20172 DATA 0,0,3,0,0,0,0,0,0,0,12,0,32,0 
,15 

£0173 DATA 3,192,0,0,0,0,0,0,10,170,170, 
170,170,160,8 

£0174 DATA 0,2,168,10,170,130,128,21,72, 
70,5,143,197,223,255 

20175 DATA 243,255,0,8,0,3,0,8,0,0,195,1 
92,0,0,0 

20176 DATA 8,0,0,42,170,170,170,170,168, 
0,0,42,128,154,106 

£8177 DATA 0,5,85,69,65,127,0,0,0,0,0,0, 

0,0,0 

20178 DATA 8,192,2,0,0,51,192,0,8,0,0,0,' 
2,170,170 

201 { 9 DAT A 1 ( 8 ,1 { 0,1 ( 0 ,1 f 0 ,128,2,1 < 0 ,1 -ifò 
, 1 { 0 , 16tì , 6*, 1 -.i8,21, 21, ( 1 
£0180 DATA 213,255,255,223,207,240,255,2 
52,0,0,0,48,8,128,8 
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20181 DATA 15,132,0,0,0,0,0,0,0,0,0,0,0, 

0,0 

20182 DATA 43,248,60,42,195,254,63,255,2 
55,245,89,81,85,255,204 

20183 DATA 243,63,252,0,0,0,12,0,32,0,3, 
132,0,0,0 

20184 DATA 0,0,0,0,0,0,0,0,0,0,168,32,5, 


20185 DATA 168,42,170,21,79,245,0,0,0,4, 
4,1,63,0,0 

20186 DATA 0,3,0,11,255,255,192,0,0,0,0, 

0,0,0,0 

20187 DATA 0,0,0,0,42,170,138,170,170,42 
,168,165,85,255,245 

20188 DAT A 127,241, 63,255,207,207,207,25 
5,132,0,0,0,132,12,0 

20189 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,2,1 
70 


28190 

DATA 

65,70j 

-5,81. 

20131 

DATA 

0,0,0 j 

-0,0 

20192 

DATA 

20193 

DATA 

20194 

,0 

DATA 

20135 

DATA 

20196 

,0 

DATA 

20197 

DATA 

20198 

DATA 

20193 

0 

DATA 

20200 

DATA 

20201 

DATA 

20202 
a P"} 

DATA 

20203 

DATA 

20204 

0 

DATA 

28205 

DATA 

20206 

DATA 


168,10,170,168,170,160,1,84,1 
85,35,207 

20 r,20 ( ,255,240,0,0,0,0,12,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0,0,48,12,0,0,0,0,0,0,0,0,0,0 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 12,12 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0,0,0,0,0,0,0,3,12,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,8 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0,0,0,204,0,0,0,0,0,0,0,0,0,0 

0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

0,0,0,0,0,0,0,0,0,0,0,0,0,48, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
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C 


20207 OPTA 0,0,0,0,0,0,0,0,12,0,0,0,0,0, 

0 

20208 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20209 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

20210 DATA 0,0,0,0,12,0,0,0,0,0,0 
30000 BVT=40 : LI N=79 : GF:=7 : C( @ >=6 : C< 1 >=© : C 
< 2 >= 148 : C< 3 >=70 : C< 4 >=0 

30010 RESTORE 20000:FOR F-l TO 3143 
30020 READ A:D$<P,P>=CHR$<A> 

30030 NEXT P 
30040 RETURN 
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GIOCHIAMO CON ATARI 


TANK BATTLE 


(Due joystick) 

In questo gioco, progettato per due giocatori, muovete i vo¬ 
stri carri armati e fate fuoco per distruggere l’avversario. 
Se riuscirete a farlo otterrete un punto. Muovendo il joy¬ 
stick verso l'alto si avvicinano i motori del carro armato, il 
quale comincia ad avanzare. Per girare, muovete il joystick 
rispettivamente verso sinistra e verso destra. Per sparare 
premete il pulsante rosso. 


1 REH 

2 REFI * TANK BAULE * 

3 REP1 * - $ 

4 REFI ¥ Mritten by Paul Bum 

5 REFI 

6 REFI 

1 fi DI FI F1 Pi 28 > , F2$< 20 >, X< 8 > , V< 3 > ■’ F1 Pi 1 ) 
CHR$< 172 > : F1 Pi 20 >=CHR Pi 172 >: F1 Pi 2 >=F 1 $ : 

Il H 

20 RAH=PEEK< 106 >-16: POKE 756,RATI: IF PEEK 

C203X>200 THEN GOSUB 890:POKE 203,200 
30 RESTORE 960:FOR Q=1 TO 8:READ XX,W:X 
< Q >=XX:V<Q >=VV:NEXT Q:C1 = 1:C=1 

40 GRAPHICS 2 

50 ? #6 ; " tank batti e- " 

60 #6i " XXXXXXXXXXXXX" 

70 ? : ? " ENTER TIHE TO PLAV " i : INPUT TI 
80 REFI 

90 GRAPHICS 17:POKE 756,RAH:Fl=14:F2=14: 
X=5:V=14:Q=15:M=5:FF1 = 1 :FF2=1 
100 S=STICK< 0 >: IF S=7 THEN C=C+l:IF 08 
THEN C=ì 

110 IF S=11 THEN C=C-1:IF C<1 THEN C=8 
120 IF S=14 THEN COLOR 32:PLOT X,V:X=X+X 
c >: V-t'+'tK C >: SOUND 0,200,8,8 
130 IF S< >14 THEN SOUND 0,0,0,0 
140 IF X<2 OR X>18 THEN X=X+-X<C>:X=<X=2 
>$18+<X=18>£2 
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150 IF V<2 OR V>18 THEN V=V+-V<C>:V=<V=2 

>:i;18+<Y=18>*2 

168 COLOR CJPLOT X,V 

170 IF STRIO 1 '0>=0 AND FF1=1 THEN GOSUB 3 
40 

180 IF STRIGO>=0 AND FF2=1 THEN GOSUB 5 
20 

190 S=STICKX1>: IF S=7 THEN Cl=Cl+lsIF CI 
>8 THEN C1=1 

200 IF S=U THEN C1=C1-1:IF Cl<2 THEN CI 

—O 

210 IF S=14 THEN COLOR 32:PLOT Q,H:Q=Q+X 

< C1 > : W=W+V< C1 >: SOUND 1,100,8,8 

220 IF 3014 THEN SOUND 1,0,0,0 

230 IF Q<2 OR Q>18 THEN Q=GH—X<C1 >:Q=<Q= 

2 >?18+< Q=18 )t2 

240 IF H<2 OR H>18 THEN W=W+-Y<CI>:W=<H= 

18 >& 2 +< W =2 >$18 

250 COLOR CI: PLOT Q,W 

260 IF F1<1 THEN POSITION 0,21s? #6;"out 
of r-Hots" : FF 1=0: GOTO 280 

270 POSITION 0,21:? #6i“shotsl»;F1$<1,F1 

- Il II 

280 IF F2< 1 THEN POSITION 0,22:? #6;"out- 
of =-hot-‘r-" : FF2-0: GOT0 300 
290 POSITION 0,22:? #6;"=Hots2";F2$<1,F2 

- Il II 

300 POSITION 5,0:? #6iSI:POSITION 15,0:? 
#6 i S2 : POS ITI ON 8,0 : ? #6 " TI HE " : POS ITI ON 
9,1:? #6iINT<TI" " 

310 IF PEEK 1 ' 53279 >=6 THEN GOTO 90 
320 TI=TI-0.1 :IF TI<0.1 THEN 800 
330 GOTO 100 
340 xi =v+y< c >: V1=V+Y<C) 

350 IF C=1 OR C=5 THEN FC=10 

360 IF C=3 OR C=7 THEN FC=12 

370 IF C=2 OR C=6 THEN FC=11 

380 IF C=4 OR C=8 THEN FC=13 

390 FOF: F=1 TO 5: LOCATE X1,Y1,XX: COLOR F 

C: PLOT XI,VI 

400 IF XX<>32 AND XX<10 THEN GOSUB 700:S 
1=S1+1:HH=1: GOTO 450 

410 SOUND 0,255-F#50,8,15: SOUND 1,150-F:S 
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30*8*155 

428 IF XI>18 OR XI<1 THEN 450 
430 IF VI >18 OR VKl THEN 450 
440 xi=x1+X<C >: V1=V1+V< C >:NEXT F 
450 X1=X+X<C >: V1=V+V(C) 

460 FOR E=1 TO 5:COLOR 32:PLOT XI,VI 

470 IF XI>18 OR XI<1 THEN 500 

480 IF VI>19 OR VKl THEN 500 

490 X1 =X 1 +X< C >: V1 =V 1 +V< C >: NEXT E 

500 SOUND 0,0,0,0:SOUND 1,0,0,0:F1=F1-1 : 

IF HH=1 THEN HH=0:GOTO 90 

510 RETURN 

520 X2=Q+X< C1>:V2=H+V< C1> 

530 IF Cl=l OR CI=5 THEN FC=10 

540 IF CI=3 OR CI=7 THEN FC=12 

550 IF CI=2 OR CI=6 THEN FC=11 

560 IF CI=4 OR CI=8 THEN FC=13 

570 FOR F=1 TO 5:LOCATE X2,V2,XX:COLOR F 

C: PLOT X2,V2 

580 SOUND 0,255-FX50,8,15:SOUND 1,150-FX 
30,8,15 

590 IF XX<>32 AND XX<10 THEN 605UB 750:S 

2-S2+1 :HH=1:60T0 630 

600 IF X2>18 OR X2<1 THEN 630 

610 IF V2>18 OR V2<1 THEN 630 

620 X2=X2+X<C1>:V2=V2+V<C1>:NEXT F 

630 X2=Q+X<CI>:V2-H+VCCI> 

640 FOR E=1 TO 5: COLOR 32: PLOT X2,V2 

650 IF X2>18 OR X2<1 THEN 680 

660 IF V2>19 OR V2<1 THEN 680 

670 X2=X2+X< CI>:V2=V2+V< CI>:NEXT E 

680 SOUND 0,0,tì,0:SOUND l,0,0,@:F2=F2-l: 

IF HH=1 THEN HH=0:GOTO 90 

690 RETURN 

70@ FOR 6=15 TO 0 STEP -3 
710 FOR H=0 TO 2 
720 SOUND H,RND<1^50+100,8,G 
730 NEXT H 

740 NEXT 6:FOR 6=0 TO 2:SOUND 6,0,0,0:NE 
XT G:RETURN 

750 FOR 6=15 TO 0 STEP -3 
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760 FOF: H=0 TO 2 

770 SOUND H,RND<1>#50+100#8#6 

780 NEXT H 

780 NEXT 8:FOR 8=0 TO 2:SOUND 8,0,0,0:NE 
KT 6:RETURN 

800 POSITION 5,10:? #6;"GfiHE OUER" 

810 S1=0:S2=0:FOF: Q=1 TO 5 

820 SOUND 0,100+C,10,15:SOUND 1,120+C,10 

,15:SOUND 2,90+C,10,15 

830 C=C-1:IF C=-30 THEN 850 

840 GOTO 820 

85@ C=0:NEXT Q 

860 FOF: Q=0 TO 2:SOUND 0,0,0,0:NEXT Q 
870 IF PEEK<53279>=6 THEN RUN 
880 F'OKE 53279,0: GOTO 870 


890 FOR 0=0 TO 1024: fi=F'EEK< 57344+Q >: F'OKE 
F:fìf1$256+Q , fi : NEXT Q : 0=8 
900 REfiD fi:IF fi=-l THEN RETURN 


910 

F'OKE 

ROTO 

256+0,fi 

:C= 

0+1: GOTO 900 



920 

DfiTfi 

24,2 

4,2 

19,2 

19, 

255,255 

,255,2 

19, 

2 

5,50,100 

,249, 

187 

,62, 

12, 

24,254, 

254,48 

r li 

7 

,127,48,254,2 
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925 

DfiTfi 

24,1 

2,6 

2,18 

-7 “i 
I 

49,100, 

50,25 



930 

DfiTfi 

219, 

255 

,255 

,25 

5 j 19 * £ 

19,24, 

24, 

il 

4,50,124 

1 # 

159 

,38, 

76, 

152 




935 

DfiTfi 

127, 

127 

,12, 

254 

,254,12 

, 1 .i! { , 1 

i! « " j 

1 

52,76,38j 

.159, 

221 

,124 

,50 

,24 




940 

DfiTfi 

112, 

120 

,248 

,25 

4,255,1 

27,60, 

56, 

v 


4,24,24,24,24,24,24,24,1,2,4,8,16,32,64, 
128,0,0,0,255,255,0,0,0 
950 DfiTfi 128,64,32,16,8,4,2,1,-1 
960 DfiTfi 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0 
,- 1,-1 



■■■ 


■■ 

■■■ 

TTTTTTTTTl CiinLHIAMf» LflNT ATARI 1 

■■ 

LI 

Il 1 1 1 1 1 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 

■■ 


DIGIT DODGE 


Usate i tasti ‘Z’ e ‘X’ per muovere il vostro mangianumeri. 
Premete V per sparare e “masticare” i numeri che appaio¬ 
no sul mangia-numeri. Distruggendo l’asterisco ('*’), che 
nasconde un punteggio misterioso, otterrete un “bonus” 
da aggiungere ai vostri punti. Il gioco termina quando i nu¬ 
meri invasori raggiungono ii vostro cacciatore di numeri. 


0 GOTO 135:REH « DIGIT DODGE BV P.BUNN 

1 FOR 1=50 TO 75 STEP 2:SOUND 0,1,10,15: 
NEXT 1: 1=0: 't-PI+48: IF H=18 THEN V=10 

2 Q$=CHR$<Y>:IF A$<1,1>=Q$ THEN I=1:S=S+ 
10 

3 IF A$< 2,2 >=Q$ AND 1=0 THEN A*<2,2>=A$< 

1.1 ) : 1=1 :S=S+20 

4 IF ft$<3,3>=Q$ AND 1=0 THEN A$<3,3>=A$< 

2.2 >: R$< 2,2 >=AT< 1,1 >21 = 1 : S=S+30 

5 IF A$<4,4>=Q$ AND 1=0 THEN A$< 4,4 >=A*< 

3.3 >: A p: 3,3 >=A$< 2,2 >: A$< 2,2 >=A$< 1,1 >: 1=1 
:8=8+40 

6 IF ATC 5,5 >=Q$ AND 1=0 THEN A$(5,5 >=A$< 

4.4 > : A$< 4,4 ;>=A$< 3,3): A$( 3,3 >=A$< 2,2 > : I=1 
:S=S+50 

7 IF A$( 6,6 >=Q$ AND 1=0 THEN A$<6,6>=A$< 

5.5 > : A$< 5,5 >=A$( 4,4 > : A$< 4,4 >=AT< 3,3 > : A$( 
3,3 >=A$<2,2 >: I=1:S=S+60 

8 IF 1 = 1 THEN A$<1,1... 

10 IF 1 = 1 AND Q*=CHR$< 10> THEN FOR 1=255 
TO 20 STEP -18:SOUND 0,1,10,15:NEXT I:S 

=S+< I NT( RND< 0 >#7+3 ># 100 > 

11 POSITION 1,0:7 #8jSC*ìS: 7 #8; 1! hiyh: 
",-HS 

12 SOUND 0,0,0,0:RETURN 

20 FOR 1=14 TO 0 STEP -2:SOUND 0,0+15*30 
,10,1:NEXT I:RETURN 
135 DI ri fì$< 6 > , Q$< 1 > , SC$<: 6 > : 60SUB 2008 
140 GRAPHICS 2:SETCOLOR 4,2,2:SETCOLOR 2 
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i i! *4 

150 fl$= " 11 : q$< 6,6 >=CHF:$< RND( 0 >*9+48 > 

160 S=© : N=5 : F1=0 : U= 18:60SUB 11 
165 Y=f’l+48 : IF 0=10 THEN V=10 
170 POSITION 5,5:? #6;CHF:*<V>;":"iA$ 

180 I=PEEK<764 >: 12=PEEK<53775 > 

190 IF 1=22 ANO 12=251 THEN 11=11+1 : GOSUB 
20: IF r*l > 10 THEN n=0 

200 IF 1=23 AND 12=251 THEN 0=0-1:GOSUB 
20: IF Fl<0 THEN 0= 10 
210 IF 1=34 AND 12=251 THEN GOSUB 1 
215 1=0 

220 TRAP 1000:0=0+1: IF 0.- U=INT<0- U::' THEN 
m< N, N >=CHR*< RND< 0 >* 10+48 >: 1 = 1 
222 IF 1 = 1 THEN IF A*<N,N>=CHR*<53> THEN 
A$<N,N>=CHR$< 10) 

224 IF 1=1 THEN N=N-1:1=0 

225 IF INT (. RND< 0 >#20 >=3 THEN U=U-l:IF U< 
8 THEN U=8 

230 TRAP 40000:GOTO 165 
1000 ? #6: ? #6; ".. i nvaded.. " : FOF: '1=90 TO 
220 STEP 11:FOR H=80 TO 90 STEP 2:SOUND 
0, H,10,15:SOUND 1,1,10,15 
1010 SETCOLGR 4,H,4 
1020 POKE 709,1NT<RND<0 >$15 >$i6+8 
1030 NEXT H:NEXT l:SETCOLOR 4,2,4:POKE 7 
64,255 

1040 SOUND 0,0,0,0: SOUND 1,0,0,0:1F S >HS 
THEN HS=S:POSITION 0,2:? #6 i"hi 9h score 

i ! i ! » 

1050 ? "ANOTHER TRV 11 j: TRAP 1050: INPUT A 
$ 

1055 IF A$<1,1>="N" THEN GRAPHICS 0:? "G 

OODBVE. 11 : ? :? : END 

1060 IF A$>: 1,1 >="V" THEN 140 

1070 GOT0 1050 

2000 FOR P=1 TO 6 

2010 READ N 

2020 SC$<P,P >=CHR$<N > 

2030 NEXT P 

2040 DATA 243,227,239,242,229,186 
2050 RETURN 


57 




GIOCHIAMO CON ATARI 


GRAND PRIX 2 


(Joystick) 

Usate il joystick per guidare la vettura di formula che corre 
lungo la pista. Se riuscite ad arrivare ai traguardo, vincere¬ 
te un “bonus” e il vostro punteggio verrà raddoppiato! 


18 REFI tt GRAND PRIX 2 - P.BUNN « 

15 PI=5:GOSUB 3888:CRASH=1886 
28 X2=14:X=116:S=PEEK<186 >-8:Q=SS256:FOR 
N=G!+512 TO Q+648: POKE N,8: NEXT N:POKE 5 
4279,S 

38 POKE 559,46:POKE 53248,X:POKE 784,216 

:POKE 784,78:POKE 53256,1 

48 FOR N=Q+552 TO Q+561: READ fi:POKE N,fi: 

NEXT N 

58^ DfiTfi 129,195,165,24,24,153,219,165,36 
, 24 

68 GRAPHICS 8:SETC0LGR 2,8,8:POKE 53277, 

3:POKE 559,46 

65 POKE 752,1:POKE 53278,fi 


66 

FOR P =8 

TO 23:PO 

iKE 281 ,X2: ? 

,S2$:NEXT 

n. 

i 





78 

S=STICK< 

; 0 >;x=x+< 

S=7 >&2:X=X- 

< S=11>X2:P 


OKE 53248,X 

72 SOUND 8,48,18,15:SC=SC+PI : SOUND 8 , 8,8 
, 8 

75 IF 0 THEN 0=8:Z=2:GOTO 118 
88 fi=PEEKX 53778 > 

98 IF fi>85 AND A-C178 THEN Z=2 
188 IF fi>178 AND X2C15 THEN Z=3:0=l 
185 IF fl<85 AND X2>2 THEN X2=X2-1:Z=1: 0= 
1 

118 F'UKE 28 1, X 2 

115 IF A=192 AND NOT I THEN ? ,F$:1=1:6 
OTO 145 

128 IF Z=1 THEN ? ,S1* 
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4 GRAND PRIX 2 L 

BI 

BI 

IBI 

IBI 

IBI 

IBI 

IBB 

IBB 

BBI 

BBI 

h 

T 

i_L 

J_L 

u. 

il 

n 


BI 

IBI 

IBI 

IBB 

BBI 

r 


130 IF Z=£ THEN ? ,S2$ 

140 IF Z=3 THEN ? ,S3$:X2=X2+1 
145 V=PEEK<53252>:IF V<>0 PHD I THEN GOT 
0 2000 

150 IF VO0 THEN GOTO CfifiSH 
160 GOTO 70 

1000 REP1 ** VOU CRPSHED! U 
1010 N=INT<RND< 0 >#1@ :POKE Q+552+N,PEEKC 
53770):SOUND 0,RND<0>*20+20,80,15:POKE 7 
04,PEÉK(. 53770 > 

1020 IF PEEKC 53770X240 THEN 1010 

1030 POKE 53248,0:? :? "VOU SCORED:"iSC: 

? : ? : ? "HIT PNV KEV.":POKE 764,255 

1035 SOUND 0,0,0,0 

1040 IF PEEK<764>=255 THEN 1040 

1050 RUN 

2000 FOR V=0 TO 255:POKE 710,V:NEXT V 
2005 ? CHR$<125)j"VOUR SCORE :";SC:POKE 
710,0 

2010 ? " BONUS : 1000":B=1000 
2020 FOR 6=1 TO 1000 STEP 10:B=B-10:SC=S 
C+10:POSITION 14,0:? SC:POSITION 14,1:? 
Bi" ":SOUND 0,G--'4,10,10:NEHT G 
2030 SOUND 0,0,0,0 

2040 ? : PI =F‘I $2: ? "STEP UPLUE NON IS "iP 
I 

2045 RESTORE : 1=0 
2050 GOTO 20 

3000 DI PI F$< 8 > , S1 T>: 8 > , S2$< 8 > , S3$< 8 > 

3010 RESTORE 3000:FOR F-l TO 8 
3020 REPD P,B,C,D 

3030 f$-;p,p>=chr$'::p> 

3040 S 1$<P,P >=CHR$< B > 

3050 S2$<P,P >=CHR$(C> 

3060 S3$< P,P >=CHR$<D) 

3070 NEXT P 

3080 RESTORE : RETURN 

3090 DfiTR 16:0,6,22,7,19£!,32,32,32 

3100 DPTP 201,32,32,32,206,32,32,32 

3110 DPTP 201,32,32,32,211,32,32,32 

3120 DPTP 200,32,2,32,160,6,32,7 
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CITY BOMB 


(Joystick) 

Il vostro aeroplano ha avuto un’avaria ai motori e sta scen¬ 
dendo lentamente verso una città sottostante. Bombardan¬ 
do la città e uccidendo milioni di persone potrete atterrare 
senza problemi, altrimenti vi fracasserete! Premete il pul¬ 
sante sul joystick ogni volta che volete sganciare una bom¬ 
ba. 




CITY BOMB 



2 fi REFI ** CITY BOHB VERSION II « 

30 REFI « HRITTEN BV PAUL BUHN « 

40 PEPI tt JANUARY 1983 « 

50 REFI ^**************************3tc 
60 PEPI 

65 IF PEEK< 203 >=PEEK< 106 >-8 THEN 80 
70 60SUB 10000* REFI * IMITIALIZATION * 

80 GRAPHICS 0:SETuOLOR 2,8,0:SETCOLOR 4, 

o i y 

90 OPEN #1,4,0,"K:":POKE 752,1 
100 ? "MHAT SKILL LEUEL <l-9>" 

110 SET #l,A:A=A-48 

120 IF A<1 OR A>9 THEM 110 

130 A=A+3 

135 POKE 756 , F'EEKX 203 > 

140 ? CHR$<125 >:FOR 1=1 TO 38 

150 V=INT<RND<0 >£A >+1 

160 FOR P=22 TO 22-V STEP -1 

170 POSITION I,Ps? : REFI XCITV CHARACT 

ER £ 

180 NEXT P 

190 FOR P=15 TO O STEP -1 
200 SOUND 0,I£6+20,10,P 
210 NEXT P 
220 NEXT I 
238 COLOR 94 

£40 PLOT 1#23:DRAHTO 39,23 
250 X= 1 : V=0 : BF1=0 : SC=@ 

260 POSITION X,V:OX=X:OV=V 

270 F'RINT "X" ì : REP1 XPLANE CHARACTERX 

280 X=X+1 

£90 IF X=39 THEN X=l:V=Y+l 

300 IF X>25 AND Y=2£ THEN 1O0O* REFI £ PIADE 

310 LOCATE X,V,Z 

328 POSITION OXjOY*? " " 

330 IF Z=ASC< > THEN 2000:REFI TCRASHX 

340 IF STRIG<0>=0 AND BF1=0 THEN GOSL'B 38 
00: REFI * BIJTTON ROUTINE * 

358 IF E:P1= 1 THEN GOSUB 4000: REFI % PIQUÉ B 
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OHB ROUTINE t 
360 GOTO 260 

1000 POSITION 13,10:? “LflNDED !" 

1010 POSITION 13,11:? "*m****" 

1020 FOR T=0 TO 6000 STEP 20 
1030 SOUND 0,T,10,15:NEXT T 
1035 SOUND 0,0,0,0 

1040 ? CHR$<125>;"NELL DONE , VOUR SCORE 
MAS "iSC 
1050 END 

2000 POSITION X-1,Y-1 

2010 ? CHR$<7 >;CHR$(124 >iCHR$<6) 

2020 POSITION X-1,V 
2030 ? 

204© POSITION X-l,V+1 

2050 ? CHR$< 6 > ; CHR$C 124 > i CHF:$< 7 > 

2060 FOR F'=200 TO 10 STEP -10 
2070 FOR I=P-5 TO P+5 
2080 SOUND 0,1,120,15 
2090 NEXT I 
2100 C= I NT< RND< tì :>t 15 > 

2110 SETCOLOF: 2,C,2: SETCOLOR 4,C,2 

2120 NEXT P 

2130 SOUND 0,0,0,0 

2140 POSITION 6,10:? "finother try ?" 

2150 GET #1,A 

2160 IF CHR$< fi )=" Y" THEN RIJN 
2170 IF CHR$<fiX>"N" THEN 2150 
2180 GRAPHICS 8:END 
3000 BH=1 :BX=X:BV=V+1:K=0: RETURN 
4000 POSITION BX,BV:? " " 

4010 BY=BY+l:LOCATE BX,BV,Z 

4020 POSITION BX,BV 

4030 ? CHR$<: 39 >: FlEH XBOHB CHARACTERX 

4040 IF Z=ASC<> THEN 5000 

4050 IF BV=22 THEN POSITION BX,22:? " ": 

BH=0 

4060 RETURN 

5000 POSITION BX,BV:? "S,":SOUND 0,230,12 
0,15:SC=SC+50 

5010 POSITION 2,0:? “SCORE:";SC 
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5020 K=K+1:IF K=5 THEN BH=0:POSITION EX, 

gy ■ 7 - ti ii 

5030 POSITION BX,BV:? " " 

5040 SOUND @,0,0,0:GOTO 4050 
10000 GRAPHICS 0 

10010 SETCOLOR 4,9,0: SETCOLOR 2,9,0 
10012 ? "CI TV BOriB - PLEASE HA IT" 

10014 ?" " 

10016 POKE 752,1 SPRINT 

10020 R=PEEK<106 >-8 

10030 FOR P=0 TO 1023 

10040 POKE R#256+P,PEEKX 57344+P > 

10050 NEXT P 
10060 READ I 

10070 IF I<0 THEN POKE 203,R:RETURN 
10080 FOR P=0 TO 7 
10090 READ K 

10100 POKE R£256+< 8X1>+P,K 
10110 NEXT P 
10120 GOTO 10060 

1tì130 DATA 4,255,129,129,129,129,129,129 


10140 DATA 5,16,8,132,194,255,2,4,8 
10150 DAT A 6*, 1 { 0,85,1 ( 0,85,1 r y , 85 ,1 f 0,85 
10160 DATA 7,0,36,60,24,24,60,24,0 
10170 DATA -99 
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ENGULF 


(Tastiera) 

State guidando la navicella spaziale Battlestar e dovete 
sconfiggere un alieno distruggendo tutti i settori di spazio 
che lo circondano. Né voi né l’alieno (raffigurato con la let¬ 
tera A) potete spostarvi nella parte esterna della zona di 
spazio visibile (queste aree dall’accesso proibito sono raffi¬ 
gurate come ’-’). Ad ogni mossa l’alieno può spostarsi di 
uno, due o nessuno spazio e voi dovrete inserire la vostra 
mossa sotto forma di due coordinate, premendo il "RE¬ 
TURN” dopo ognuna di esse. Ogni area distrutta viene indi¬ 
cata con uno spazio vuoto, mentre l’area non colpita viene 
indicata con degli asterischi. 

Sconfiggerete l’alieno distruggendo completamente tutti 
gli spazi dove potrebbe spostarsi. Non potete atterrare 
sull’alieno: se lo fate vi autoannienterete. L’alieno tiene sot¬ 
to controllo lo spazio circostante e segnala al computer il 
grado di pericolo che rileva, cosicché voi sapete, più o me¬ 
no, ciò che pensa l’alieno. La strategia migliore consiste 
nell’intrappolare l’alieno contro uno dei lati, poiché in que¬ 
sta maniera se ne limiteranno le possibili mosse. L’alieno è 
a conoscenza di questa possibilità e, usando l”'intelligen- 
za” nelle istruzioni 6145 e 6161, tenderà ad allontanarsi dai 
lati in modo da ridurre la possibilità di restare intrappolato. 
Sapendo cosa può fare l’alieno fareste bene a costruirgli 
intorno un «recinto» di aree vuote, tentando di mantenerlo 
in quelle o obbligandolo a spostarsi verso i lati. Questo gio¬ 
co prevede un “highest score” (massimo punteggio). 


1 GRftF’H IUS U: SETUULUR 4 #8»tu SETUULUR S*S 

,0 

3 DIPI ft< 10# 10> 

5 HISCQRE=0 

10 REP1 ENGULF 

20 REFI COHARTNELL 1982 

30 GOSUB 9000: REFI IN ITI ALI SE 

40 GOSUB 8000:REH FRINT OUT 
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50 GOSUB 7000: RETI ACCEPT PLAVER DECI SION 

60 GOSUB 6000:REO IJPDATE ALIEN 

70 TI P1E=T I HE-1 

75 SHOTS=SHOTS+1 

80 IF TinE=0 THEN 6570 

85 GOSUB 8000 

90 GOTO 50 

910 TIF1E=30 

5000 REP1 COLLISION 

5010 FRINT "VOU HIT THE ALIEN,CAPTAIN" 
5020 PRINT "AND HAUE BEEN DESTROVED" 

5030 GOTO 6570 
6000 RED iJPDATE ALIEN 
6010 REP1 CHECK IF SURROUNDED 
6020 H=0 

6030 IF A<ri-l,N>=2 THEN H=H+1 
6040 IF A(fl-1,N-1 >=2 THEN H=H+1 
6050 IF A<P1,N-1>=2 THEN H=H+1 
6060 IF A<PI,N+1>=2 THEN H=H+1 
6070 IF A< PI— 1 ,N+1 >=2 THEN H=H+1 
6080 IF A< f‘1+1 ,N+1 >=2 THEN H=H+1 
6090 IF A<n+1,N-1>=2 THEN H=H+1 
6100 IF Aai+1,N>=2 THEN H=H+1 
6110 IF H=8 THEN 6500: RED SURROUNDED 
6120 REFI PIQUÉ ALIEN 
6125 E=Pl: F-N 

6130 P1=P1— I NT< RND< 1 >$2 >+INT< RND< 1 >S2 ) 

6140 IF n<2 OR ri>9 THEN 6130 
6145 IF < PK 4 OR Pl>7> AND RND<1»0.7 THEN 
6136 

6150 N=N-INT(RND<1>*2>+INT<RND(1 >t2 > 

6160 IF N<2 OR N>9 THEN 6150 

6161 IF < N<4 OR N>7 > AND RNDC1>>0.7 THEN 
6150 

6162 IF A< P1#N >=2 THEN 6130 
6165 A< E , F >=0 

6170 A< P1,N >=1 
6300 RETURN 
6500 REP1 SURROUND 
6505 GOSUB 8000 
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R519 FRINT "ENGULFED! NELL DONE" 

6520 FRINÌ "IT TOOK VOLI "iSHOTS;" SHOTS" 
fi5 70 FRI NT "AND VOU DIO IT WITH "i TI PIE;" 
TI HE IJNITS" , "LEFT" 

6540 Q=T I HE:?: 125.67 

6550 FRINÌ "VOUR RATING IS ";Q 

6560 IF Q>HISCORE THEN HISCORE=Q 

6570 FRINÌ "HI6HEST SCORE SO FAR IS ";HI 

SCORE 

6580 FRINT 

fiSSA FRINT "ENTER 1 FOR ANOTHER SANE#2 T 
0 END" 

6600 INPUT A 

6610 IF A=1 THEN 10 

6620 FRINT "OUER AND OUT#CAFTAIN" 

6630 END 

7000 REFI ACCEF'T PLAVEF: DECISION 

7010 FRINT "WHICH SECTOR WILL VOU SHOOT 

AT" 

7020 FRINT "ACROSS"; 

7030 TRAP 703@:INPUT S:TRAP 40080 
7035 IF S<2 OR S>9 THEN 7030 
7040 FRI NT Si" AND DOWN " ; 

7050 TRAP 7050:INPUT R:TRAP 40800 
7055 IF R<2 OR R>9 THEN 7050 
7068 IF A<R,S>=1 THEN 5000:REP1 HIT ALIEN 
, END OF 6AP1E 

7870 IF A<F:,S>=2 THEN FRINT "SECTOR ALRE 

ADV DESTROVED":FOR P=208 TO 255:SOUND 0, 

P,18,15:NEXT P: SOUND 0,0,0,0 

7090 IF A<R,S>=2 THEN RETURN 

7100 A<R,S>=2 

7110 RETURN 

8000 RETI FRI NT OUT 

8005 FRINT CHR*<125) 

8820 FRINÌ 

8830 FRINT "-ALIEN SENSES DAN6ER OF F 

ACTOR-";H; "-" 

8050 FRI NT "BATTLESTAR COP1PUTER REPORTS: 

",,"HIGHEST SCORE IS "iHISCORE 

8860 FRINT "- 
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8880 FRINT 

8898 FRI NT " ALIEN NON AT ";N;" PI 
8100 FRINT 

8110 FRINT "TIHE LEFT: "iTIHE,"SHOTS FIR 
ED: "iSHOTS 
8120 FRINT 

8125 FRINT "12345678910" 

8130 FOR K=1 TO 18 
8140 FOR J=1 TO 10 

8145 IF K< 2 OR K>9 OR J<2 OR U>9 THEN PR 

INT 

8146 IF K<2 OR K>9 OR J<2 OR J>9 THEN 81 

80 

8150 IF A<K , J)=0 THEN FRINT i : SOUND 8 

iKI8+JI4i10,15 

8160 IF Ri K#J >=1 THEN FRINT “A";:FOR P=2 

0 TO 0 STEP -lsSOUND 0,P,12,15:NEXT P 

8170 IF A<K, J>=2 THEN FRINT " ";:FOR F-4 

8 TO 0 STEP -2:SOUND 0,P,8,15:NEXT p 

8180 SOUND 0,0,0,0:NEXT J 

8190 FRI NT K 

8280 NEXT K 

8210 FRINT 

8990 RETURN 

9000 REH INITIALISE 

9010 TIf1E=30 

9020 SHOTS=0 

9030 H=0 

9050 FOR B=1 TO 10 
9055 FOR C=1 TO 10 
9060 Ri B, 0=0 

9£i65 IF B<.2 OF; E!>9 OR Ci2 OFl C>9 THEN Ai 

B,C>=2 

9ti67 NEXT C 

9070 NEXT B 

9080 n=INT< F:ND< 1 >:?:7 >+2 
9090 N=INT< RNDi1>X7 >+2 
9100 A< H,N >=1 
9900 RETURN 
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COLOUR 

PATTERN 


Questo breve programma presenta figure e creazioni che 
producono un effetto ipnotizzante con la rotazione conti¬ 
nua dei colori. 

iti bRAPHIL 'o lw 


20 

POKE 

704 

,0 

30 

POKE 

705 

,1, 

40 

POKE 

706 

,3: 

50 

POKE 

707 

,1; 

55 

POKE 

708 

,1; 

60 

FOR X 

=0 

TO 

70 

C=C+1 

sIF 

0 

80 

COLOR 

c 


90 

PLOT 

X , X 



100 DRflWTO 79-X,X 
110 DRflWTO 79-X,131-X 
120 DRflWTO X#131-X 
130 DRflWTO X,X 
140 NEXT X 

145 REn %t ROTATE COLOURS 
150 fi=PEEK<705 > 

160 POKE 705 r F'EEK( 706 > 

170 POKE 706#PEEK< 707 > 

185 POKE 707,PEEK<708> 

186 POKE 708,fl 

190 fl=SIN< A >s REFI « OELfiV 
200 GOTO 150 
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COl.OUR PUZZLE 


COLOUR PUZZLE 

(Tastiera) 

La soluzione di questo meraviglioso puzzle dovrebbe rive¬ 
larsi una sfida per voi. Ecco le regole: 

Le prime quattro mosse devono essere eseguite nei quat¬ 
tro angoli (01, 10, 16 e 25); 

Per collocare un quadrato colorato sulla scacchiera è ne¬ 
cessario che sia vicino ad un altro quadrato in orizzontale o 
in verticale, non in diagonale; 

Un quadrato colorato non può essere collocato vicino ad 
un altro quadrato del medesimo colore che si trovi in uno 
degli otto quadrati che lo circondano. Disponete i quadrati 
colorati secondo queste regole finché tutti i 25 spazi saran¬ 
no riempiti. 

I riquadri sono numerati nel modo seguente: 


_10_ 

05 11 17 



09 15 21 

16 


Notate che è necessario porre uno zero prima delle cifre sin¬ 
gole e che non bisogna premere il tasto RETURN. Se tenta¬ 
te di compiere una mossa che non è permessa il computer 
vi avvertirà suonando. Quando non riuscite più a muovere, 
battete ‘99’. 


■rriMij 
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18 KEi‘1 XX L'ULuUR PUZZLE ~ XX 

20 REFI XX BV F'fllJL BUNN n: 


30 

GRAPHICS 

10 


40 

POKE 

704 

,12 


50 

POKE 

705 

,3* 

16+4 

60 

POKE 

706 

,12 

% 16+6 

70 

POKE 

707 

* f 

16+2 

8 @ 

POKE 

708 

#15 

XI6+4 

90 

POKE 

709 

#8: 

POKE 


100 COLOR 6:POKE 703#4 
110 FOR X=@ TO 48 STEP 8 
120 READ V 
130 FOR K2=8 TO 7 
140 PLOT X+X2+12,90-V 
150 DRAWTO X+X2+12,90+'t‘ 

160 NEXT X2 
170 NEXT X 

180 DATA 10,30,50,70,50,30,1© 

190 DIPI X<25>,V<25> 

20© FuR X2=1 TU 25 
210 READ X, V : X< X2 >=X : V< X2 >=V 
220 NEXT X2 

230 DATA 12,80,20,60,20,80,20,100 
240 DATA 28,40,28,60,28,80,28,180 
250 DATA 28,120,36,20,36,40,36,60 
260 DATA 36,80,36,100,36,128,36,140 
270 DATA 44,40,44,60,44,80,44,180 
2*80 DAT A 44 ,128,52, E>0,52 , o0,52,10U 
290 DATA 60,80 

300 FOR F-l TO 25:COLOR 5:PLOT X< P >+3,V< 
P>+10:NEXT F 

310 OPEN #1,4,0,"K:" 

311 CQL=INT(RND(0>X5>+1 : COLOR COL 

312 B=B+< CiTL=3 : R=R+< COL= 1 : G=G+< C0L=2 > : 
VL=VL+<C0L=4>:BL=BL+< C0L=5) 

313 IF COL=Ì AND R>5 THEN R=5:G0T0 311 

314 IF C0L=2 AND 6>5 THEN 6=5:GOTO 311 

315 IF CGL=3 AND B>5 THEN B=5:G0T0 311 

316 IF C0L=4 AND VL>5 THEN VL=5:60T0 311 
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MI 

MI 
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n 

MI 

MI 

MI 
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317 IF C0L=5 AND BL>5 THEN BL=5:G0T0 311 

319 FOF: F-0 TO 10: PLOT P,0:DRAHTO P,20:N 
EXT P 

320 SET #1,KEV:KEV=KEV-48:KEV-KEVX10 

325 6 ET #1jKEV2:KEV=KEV+KEV2-48 

326 IF KEV=99 THEN 2000 

327 IF KEV< 1 OR KEV >25 THEN FRI NT CHR$<2 
53>:GOTO 320 

330 LOCATE X< KEV>,V< KEV >,C 
340 IF C<>6 THEN FRINT CHR$< 253 >: GOTO 32 
0 

350 IF KEVOl AND KEVO10 AND KEVOIG AN 
D KEV025 AND K<4 THEN F'RINT CHF:$< 253 >: G 
OTO 320 

355 IF J=1 THEN K=5 

360 IF KEV= 1 OR KEV=10 OR KEV=16 OR KEV= 

25 THEN K=K+1:1F K=4 THEN J=1 

370 X=X(KEV >+3:V=V<KEV)+10 

38© LOCATE X-R/tLCI 

390 LUCHTE X-6.»V-Ì7*C2 

400 LOCATE XjV-17jC3 

410 LOCATE X+6,V-17,C4 

420 LOCATE X+6,V,C5 

430 LOCATE X+6,V+17,C6 

448 LOCATE X > V+17 1 C7 

450 LOCATE X-6*V+17#C3 

460 IF Cl=COL OR C2-C0L OR C3=C0L OR C4= 

COL OR r:S=COL OR f:R=f:fiL OR C7=COL OR f:P.= 

COL THEN ? CHR$< 253 >* GOTO 320 

470 |J=< C1 =6 >-K C3=6 >+< C5=6 >+< C7=6 > 

473 I =( C1 =0 ’>+( C3=0 >+( C5=0 )+( C7=0 ? 

475 IF U+1 =4 ANO K>4 THEN PRINT CHF:$< 253 

>:GOTO 320 

480 COLOR COL 

485 X=XC KEV >: V=V< KEV ) 

490 FOR F‘=0 TO 7 
500 PLOT X+P.V 
510 ORANTO X+P#V+19 
520 NEXT P 

525 IF R+6+B+VL+BL=25 THEN 1000 
530 NO=NO+l:GOTO 311 
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GIOCHIAMO CON ATARI 


FOR 6=205 TO 5 STEP -5 
FOR P=G-3 TO 6+3 
SOUND 0,P,10,15 
NEXT P 

POKE 704,<INT<RND<8>*15 >*16 >+8 
HEXT 6 

GRAPHICS 0:SETCOLOR 2,9,2:SETCOLOR 
POSITION 4,12 

? “NELL DOME VOLI SOLUED THE PUZZLE" 
POSITION 4,13 
POKE 752,1 

? 11 Xc K K ¥: :K K ‘ * 

FOR P=0 TO 255 
SOUND 0,P,10,15 
NEXT P 

SOUND 0,0,0,0 
END 

FOR 6=0 TO 256 
SOUND 0,6,10,15 
POKE 704,6.-2 
NEXT 6 

SOUND 0,0,0,0:POKE 704,12 
GRAPHICS 0:POKE 752,1 
POSITION 10,12:POKE 710,3$16+4 
? "BAD LUCK - TRV A6AIN" 

POSITION 10,13 
? 11 " 

FOR P=0 TO 2000 STEP 20 
SOUND 0,P,10,15:NEXT P 
SOUND 0,0,0,0 

V m 

. ■ ! 

? "VOLI HAD " ;25-N0i " LEFT TO FILL" 




I_REDYELLOW_J 
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1000 
1018 
1020 
10.30 
1040 
1050 

1060 
4 , 9 , i 

1070 
1080 
1090 
1 100 
1110 
1130 
1140 
1150 
1160 
1170 
2000 
2010 
2020 
2030 
2040 
2050 
2055 
2060 
2065 
2070 
2080 
2090 
2100 
2110 
2120 
2130 








STRING PATTERN 


STRING 

PATTERN 


Questo breve e semplice programma produce disegni e 
suoni stupendi. 


STRING PATTERN 1 
BV PAUL BUNN 


20 REH « BV PAUL BUNN 
30 REH 

40 GRAPHICS 8+18:SETCOLOR 
45 COLOR l:SETCOLOR 1,0,1- 
50 FOR X=0 TO 191 STEP 10 
60 PLOT 64,191-X 
70 DRAWTO X+64,0 
80 PLOT lSl-X+64,0 
90 DRAWTO 191+64,1SI-X 
100 PLOT 64,X 
110 DRAWTO X+64,191 
120 PLOT 191+64,X 
130 DRAWTO 191-X+64,191 
140 NEXT X 

145 FOR P=0 TO 14 STEP 0.2 
150 SETCOLOR 1,0, F' 

155 SOUND 0,P*40,10,15 
160 NEXT P:GOTO 145 
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SOUND 

PROGRAM 


(Tastiera) 

Questo breve ed interessante programma produrrà suoni 
simili a quelli emessi da un pianoforte; memorizzerà inoltre 
le note e, premendo il tasto ‘ESC’, tornerà a suonarle. 






















SOUND PROGRAM 


lo RE il XX yuUND PRiJGRAPl XX 
2@ RETI tt BV tt 

30 RÈP1 X* PAUL BUNN XX 

56 GRAPHICS 0 

Ky oETL-ULUR dr 8 1 0! SETeuLuR 4#y#8 
70 TRAP 160 
90 DIPI T<500> 

100 OPEN #1,4,0, "K:" 

105 ? CHR$<125>:? "PRESS KEVS TO GET DIF 
FERENT" 

106 ? "NOTES.TO HEAR PLAVED BACK PRESS 1 

ESC 1 " 

110 GET #1,A:L=L+1 
115 IF A=27 THEN 160 
120 T< L >=A 

130 FOR X=15 TO 0 STEP -1 
140 SOUND 0,A,10,X:NEXT X 
150 GOTO 110 
160 ? CHR$<125 > 

170 ? "MHAT TEP1PO <l-4>" 

180 GET #1 ,A 

190 A=A-48:IF A<1 OR A>4 THEN 188 
200 FOR J=i TO L 
210 S=T< J> 

228 FOR X=15 TO 8 STEP -1 
230 SOUND 0,S,10jX:NEXT X 
235 FOR 6=1 TO 10X<A-l>:NEXT G 
240 NEXT J 
258 END 
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GIOCHIAMO CON ATARI 


DISPLAY LIST 
INTERRUPT 
EXAMPLE 

Questo programma mostra soltanto una piccola parte di 
ciò che una DLI è capace di fare. Vi suggerisco di registra¬ 
re il programma prima di tentare di eseguirlo, poiché è 
scritto interamente nel linguaggio macchina. 


10 repi tttmtumtmmtmtttnu 

20 REPI tt Display List Interrupt $$ 

30 RED tt t-xample tt 

40 REPI ## Wp i tte-n by pau 1 Bt-'Pifi $$ 

50 repi m*m*mmm**mwm* 

60 GOSUB 1006 
70 X=USR<1536) 

1000 FOR A=1536 TO 1636:READ B:POKE A*B: 
NEXT fi 

1001 DATA 162*16*169*3*157*66*3*163*99*1 
57*68*3*169*6»157*69*3*169»12»157*74*3*1 
69 # fci * 15 1 

1002 DATA 75#3#32*86#228*173*46*2*133#20 
3*1 ( P#49#2* Ibi#204# 1 €'0*0*1 ! i' »20 1 '#201 * 15* 
240,8*200*192 

1003 DATA 0*208*245*76*63*6*169*143*145# 
203*76*48*6*169*81 * 141*0*2*169*6*141 * 1*2 
*169*132 

1004 DATA 141,14,212,76,78*6,72*173*11*2 
12*42*73*255*141*10*212*141*24*208*141,2 
6*208*104*64*83 

1005 DATA 58 

1006 RETURN 
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RE ACTION TIMER r- - 
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REACTION 

TIMER 

(Due joystick) 

Questo è un breve programma per due giocatori ed è molto 
semplice da giocare. Appena vedete apparire un punto sul¬ 
lo schermo premete il tasto “FIRE”. Il giocatore che pre¬ 
merà il tasto per primo guadagnerà un punto. Il primo gio¬ 
catore che arriva a 10 punti vince il gioco. Questo program¬ 
ma mette alla prova la prontezza di riflessi. 


1.0 fi EH #* REACTION TI PIER ** 

20 REFI ** BV P.BIJNN , NOUEFIBER 1981** 
38 REPI 

31 DIPI A$<30>,B$<30> 

32 ? " PLAVER l'S NANE “H INPUT A$ 

33 ? "PLAVER 2 1 S MAFIE " ; : INPUT B* 

40 GRAPHICS 5 

45 SETC0L0R 2,3,4 

50 A= I NT< RN0< 0 >*200 >+200 

60 FOR L=1 TO A 

30 IF STRIG<0 >=0 THEN GOTO 1000 
80 IF STRIGc: 1 >=0 THEN GOTO 2008 
90 NEXT L 

100 COLOR INT<RND<0)*3>+1 
110 A=RND< 0 >*?9: B-RNDC 0 >*39 
120 PLOT A,B 
130 A=0 
1.40 A=A+1 

150 IF STRIG< 0>=0 THEN 3000 
160 IF STRIG( 1>—0 THEN 4000 


170 GOTO 140 

000 GRAPHICS ©:? "CHEAT! VOLI PRESSED TH 
BUTTON TO SOGH":SC2-SC2+1: GOTO 5000 


000 GRAPHICS 0:? 
BUTTON TO SOGH": 


"CHEAT! VOU PRESSED TH 
SCI=SCl+l:GOTO 5000 
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3000 GRAPHICS 0:? A*; 1 ' WINS!_WITH A T 

IHE OF:- "iA/100:SC1=SC1+1:IF 

SCI>=10 THEN 6000 
3005 GOTO 5000 

4000 GRAPHICS 0:? B$;“ WINS!_WITH A T 

I HE OF : - "i A- ' 100 : SC2=SC2+1:1 

F SC2>=10 THEN 7000 
4005 GOTO 5000 
5000 ? : ? : ? : ? 

5005 ? " ======" 

5010 ? " SCORES" 

5020 ? " ======" 

5030 PRINT :PRINT 

5040 ? A$i 11 ";B$ 

5050 ? "- 


5060 ? 

5070 ? SCli" 

" -C;pO 

5080*"? :? :? "PRESS 'FIRE BUTTON' WHEN R 
EADV " 

3090 IF STRIP 1 - 0’H’ >0 THEN 5090 


5100 FOR 
6000 1 * 
6005 ? ! 
7000 ? : 
7005 ? : 


L=1 TO 100SNEXT L:GOT0 40 
? :? :? AWINS THE GAP1E !!.." 
r : END 

? s? :? 6$i" WINS THE GAME ! ! .. " 
? : END 
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MORSE CODE 


MORSE CODE 


Quando il computer ve lo chiede, battete una frase qualsia¬ 
si e il programma la tradurrà in codice Morse attraverso 
l’altoparlante della televisione. 


i-0 REi’i mtttttmmttmmmttt 

20 REPÌ * riORSE CODE CONUERTER BV X 
30 REP1 $ P.BUHN & J.UINCENT X 
40 REFI ££X£££££X£«£££££XXX£X£XXXXX 
50 GRAPHICS 0 

60 SETCOLOR 2,3,0:SETCOLOR 4,3,0 

70 DL=PEEK< 56:0 >+256£F'EEK< 561 >+4 

80 POKE DL+2,7:POKE DL+3,7 

90 POSITIOH 0,1 

LO© ? “PIORSE CODE CONUERTER 

no ? "x^mxxxxxxxxxxxxxxt" 

1.20 ? : ? : ? "TVPE IN PlESSfiGE VOU WANT TO 
HEflR 

1.30 DIPI A$< 100 >,B$< 5 > 

140 SOUND 0,0,0,0: TRAF* 140: INPUT A* 

L50 FOR X=1 TO LEN< A$ > 

155 IF A$<X,X>=“ " THEN FOR F-l TO 10@:N 

EXT P:NEXT X 

160 V=HSC<A$<X,X >>-65 

1.70 RESTORE V+1OW0 

130 B$=" ": READ B$ 

L30 FOR Z=1 TO LEN< B$ > 

200 IF B$(Z,Z >="." THEN SOUND 0,30,10,15 
: FOR F'=l TO 20: NEXT P: SOUND 0,0,0,0 
210 IF Z,Z>="-" THEN SOUND 0,30,10,15 
:FOR P=1 TO 50:NEXT P:SOUND 0,0,0,0 
220 FOR F-l TO 20:NEXT F' 

230 NEXT Z 
240 NEXT X 
250 RUN 
1000 DATA .- 
1.001 DATA 
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IBB 

BBB 

BBI 

IBI 

■!J 


_L 

JJ_ 

J_L 

_L_L 

Xi 


m 

ICC 

ICE 

u 

il 


1002 DATA 

1003 DOTA 

1004 DATA . 

1005 DATA 

1006 DATA 

1007 DATA .... 

1008 DATA .. 

1.009 DATA .- 

1010 DATA 

1011 DATA 

1012 DATA -- 

1013 DATA -. 

1014 DATA - 

1015 DATA 

1016 DATA 

1017 DATA .-. 

1018 DATA ... 

1019 DATA - 

1020 DATA 

1021 DATA ...- 

1022 DATA 

1023 DATA 

1024 DATA 

1025 DATA . 



DOT 
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COMPLIMENT 

GENERATOR 

Vi sentite depressi? Basterà eseguire questo programma e 
la vostra autostima aumenterà immediatamente. 

10 PEPI ** COMPLIMENT GENERATOR U 
20 DIN A$< 15) 

30 A=INT<RND< 1>*10> 

40 B=INT<RND< 1 »<? > 

50 RESTORE 1000+A 
60 READ A$ 

79 RESTORE 2000+B 

80 READ B$ 

90 ? A$i" "iB$ 

95 A=INT(RND(0>#16>:SETCOLOR 2,A,4:SETC0 
LOR 4, A, 4 

96 FOR F=1 TO 300SNEXT F 
100 RIJN 

1.000 DATA BRILLIANT 

1001 DATA LOUELV 

1002 DATA GREAT 

1003 DATA CLEUER 

1004 DATA INTELLIGENT 

1005 DATA NICE 

1006 DATA NISE 

1007 DATA BEAUTIFUL 

1008 DATA CHARMING 

1009 DATA SMART 

2000 DATA PERSON 

2001 DATA CHARMER 

2002 DATA GENIUS 

2003 DATA INDIUIDUAL 

2004 DATA OPERATOR 

2005 DATA HERO 

2006 DATA ACE 
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SPACE DOCKER 


(joystick) 

Questo è uno dei migliori programmi contenuti in questo li¬ 
bro. È progettato per quattro giocatori e dispone di routine 
in linguaggio macchina per i movimenti. Il BASIC non può 
essere usato per le azioni rapide poiché è troppo lento. 
Combattendo contro invasori stranieri in una galassia lon¬ 
tana, la vostra nave viene improvvisamente colpita in pie¬ 
no. Entrate nella piccola navetta di salvataggio con il vostro 
equipaggio, vi staccate dalla nave e correte verso la nave 
appoggio dove la salvezza è sicura. Ma c'è un problema: 
state esaurendo rapidamente la scorta di ossigeno e ve ne 
restano soltanto 300 unità. 

Il vostro obiettivo, usando ii joystick nel “Port 1", è di at¬ 
traccare alla nave appoggio prima che la scorta si esauri¬ 
sca completamente. Per avanzare usate il pulsante del joy¬ 
stick, muovendone la barra a destra o a sinistra per guidare 
la navetta verso la nave appoggio. Quando riuscite ad at¬ 
traccare alla nave appoggio, il numero delle unità di aria 
avanzate verrà aggiunto ai vostri punti. Chi è interessato al¬ 
la routine del linguaggio macchina che ho impiegato può 
trovare il listato in assembly dopo il listato del BASIC. 
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SPACE DOCKER 


1 0 RETI 

20 REPI t SPACE DOCKER BV P.BUNH & * 

30 REPI t JONATHAN UINCEHT * 

40 REPI 

50 GOSUB 10000:REPI tt INITIALIZATION tt 
60 GOSUB 20000 

65 SOUND 0,0,3,15:POKE 53273,R:AIR=380 
70 X=USR< 1536) 

80 IF PEEK<731+R*256>=24 THEN 1000 
90 IF PEEKC53254)00 OR PEEHX53262 X >0 T 
HEN GOTO 2000 

L00 AIR=AIR-1 : IF AIRO0 THEN 70 

110 POSITION 4,6:? "out of air":SC=0 

1.15 POKE 53251,0 

120 FOR P=0 TO 4000 STEP 12 

130 SOUND 0,P,10,15:NEXT P 

140 SOUND 0,0,0,0 

150 POSITION 4,6:? "Press START" 

155 POSITION 4,4:? "score:" jSC 

160 POKE 53279,0 

17@ IF PEEKC53279X>6 THEN 160 

1.30 POSITION 4,6:? “ ":GOSUB 1 

0100:GOTO 65 

1.000 IF PEEKX 209>>PEEK< 203> AND PEEK<209 

XPEEKC204> THEN 1020 

1010 GOTO 2000 

1020 POSITION 4,6:? "docked" 

1025 POKE 53251,0 

1.030 FOR P-230 TO 10 STEP -10 

1040 FOR X=P-5 TO P+5 

1050 SOUND 0,X,10,15 

1060 NEXT X 

1.070 SETCOLOR 1 ,RND< 8 )*16,10 

1080 NEXT P 

1090 SOUND 0,0,0,0 

1100 POSITION 21,4:? "remaining air:";AI 
R 

1110 SC=SC+AIR: GOTO 150 

2000 FOR P=781 TO 896: IF PEEK<R«256+PX> 

24 THEN NEXT P 

2005 POKE 53251,0 
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2010 E=53770:P0KE P+256*R+RND< 0>*8,PEEK< 
E) 

2020 SOUND 0 ,PEEK< E > , 8,15 :POKE 706,PEEK< 
E) 

2030 S=S+i:lF S<50 THEN 2010 
2035 POKE 53250,0:POKE 53251,0 
2040 S=0:SC=S:eOTO 140 

10000 6RAPHICS 0:DL=PEEK<560 H25e*PEEK< 5 
61 )+4:POKE 32,0 

10010 POKE DL+5,7:P0KE DL+6,6:P0KE DL+7, 
6 :POKE DL+8,6:POKE DL+9,6 
10020.SETCOLOR 4,9,4:SETCOLOR 1,3,4:POKE 
DL+10,6 

10030 SETCOLOR 0,3,8:SETCOLOR 1,13,10 
10040 POSI TION 0,4:POKE 752,1 
10050 ? " SPACE DOCKER "; 

10055 ? " ************ "i 

10060 ? " you are losing aìr 
10070 ? " and PllJST dock with 
10080 ? " thè passing mother “; 

10090 ? " ship_GOOD LLICK! 

10100 R=PEEK<106>-8:RESTORE 

10110 FOR P=R*256+512 TO R*256+1024 

10120 POKE P,0:NEXT P 

10130 FOR P=10 TO 17 

10140 READ fi,B 

10150 POKE R*256+512+P,fi 

10160 POKE R*256+640+P,B 

10170 NEXT P 

10180 DfiTfi 7,224,62,124,111,246 
10190 DfiTfi 255,255,214,107 
10200 DfiTfi 124,62,60,60,4,32 
10210 FOR P=0 TO 7 
10220 READ fi 

10230 POKE R*256+768+80+P,fi 
10240 NEXT P 

10250 DfiTfi 24,60,36,60,36,126,90,255 
10260 FOR P=0 TO 6 
10270 REfiO fi 

10230 POKE R*256+896+88+P,fi 
10290 NEXT P 
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IL 

4 

--- 

--- 

--- 

--- 

--- 

space rocker r : 

_ 

--- 

--- 

--- 

--- 

p 


L0300 ? CHR*<125):COLOR 160:PLOT 0,20:DR 
ANTO 39,20:? CHR$<160>:POSITION 0,0 
L0310 POKE 704,84:16 
10320 POKE 705,84:16 
L0330 POKE 706,15*16+10 
10340 POKE 707,3*16+4 
L0350 POKE 53277,3 
10360 POKE 559,46 
L0370 POKE 53248,110 
10380 POKE 53249,126 
L0390 POKE 53250,108 
10400 POKE 53256,1 
1041O POKE 53257,1 
10420 POKE 53258,1 
L0430 POKE 53259,1 
10440 POKE 623,1 
L0450 POKE 54279,R 
10460 DATA 24,60,126,255,255,0,0 
10470 POKE 203,110:POKE 204,126 
10480 POKE 208, INT< RNDU >*2)+l: POKE 209, 
108 

10485 K=R*256+768: POKE 206, IMT<K/'256>:P0 
KE 205,K-C 256*PEEK< 206 >> 

10490 RETURN 

20000 FOR A=1536 TO 1676:REAO B:POKE A,B 
:NEKT A 

20001 DATA 104,165,208,201,1,240,17,230, 
203,230,204,165,204,201,200,208,21,169,1 
,133,208,76,38,6,198 

20002 DATA 203,198,204,165,203,201,50,20 
8,4,169,2,133,208,165,203,141,0,208,165, 
204,141,1,208,173,120 

20003 DATA 2,201,11,240,10,173,120,2,201 
,7,240,8,76,72,6,198,209,76,72,6,230,209 
,165,209,141 

20004 DATA 2,208,173,132,2,201,0,240,11, 
169,0,141,3,208,141,0,210,76,127,6,173,1 
0,210,141,195 

20005 DATA 2,165,209,141,3,208,169,130,1 
41,0,210,160,0,177,205,136,145,205,200,2 
00,192,0,208,245,76 

20006 DATA 140,6,160,0,177,205,200,145,2 
05,136,136,192,0,208,245,96 
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LL 












20007 RETURN 

10 $=$600 

20 iASSEPlBLV ROUTINE USED IN 

30 iSPACE DOCKER MRITTEN BV PAUL BUNN 

40 HORt=$CB 

50 H0R2=$CC 

60 LF=$D0 

70 H0R3=$01 

80 PLfl 

90 LDfl LF 

0100 cnp #1 

0110 BEG! RIGHT 
0120 LEFT INC HOR1 
0130 INC H0R2 
0140 LDfl H0R2 
0150 cnp #200 
0160 BNE NI 
0170 LDfl #1 
0130 STA LF 
0190 JT1P NI 
0200 RIGHT DEC HOR1 
0210 DEC HOR2 
0220 LDfl HOR1 
0230 cnp #50 
0240 BNE NI 
0250 LDfl #2 
0260 STA LF 
0270 NI LDfl HOR1 
0280 STA 53248 
0290 LDfl H0R2 
0300 STA 53249 
0310 STICK LDfl $278 

0320 cnp #11 

0330 BEQ L 
0340 LDfl $273 

0350 cnp #7 

0360 BEQ R 
0370 JOB N2 
0330 L DEC H0R3 
0390 JHP N2 
@400 R INC HORS 
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0410 

H2 LDA H0R3 

0426 

STO 

53250 

0430 

LDA 

$284 

0440 

CdP 

#0 

0450 

BEQ 

ON 

0460 

LOFI 

#0 

0470 

STA 

53251 

0480 

STA 

$0200 

0490 

JP1P 

N4 

0500 

ON LDA 53770 

0510 

STA 

707 

0520 

LDA 

H0R3 

0530 

STA 

53251 

0540 

LDA 

#130 

0550 

STA 

$D200 

0560 

LDV 

#0 

0570 

AGI LDA <$CD 

@580 

DEV 


0590 

STA 

< $CD >»V 

0600 

INV 


0610 

INV 


0620 

CPV 

#0 

0630 

BNE 

AGI 

0640 

JHP 

N5 

0650 

N4 LDV #0 

0660 

AG2 LDA <$CD 

0670 

INV 


0680 

STA 

< $CD ) t V 

0690 

DEV 


0700 

DEV 


0710 

CPV 

#0 ^ 

0720 

BNE 

AG2 

0730 

N5 RTS H 


• o 



87 















I 1 





i_ 

c 






: t GIOCHIAMO CON ATARI - 





±3 







n r 





j 


SKI RUN 


(joystick) 

Note per introdurre il programma: 

1. Battete esattamente quello che riporta il listato 

2. Registrate il programma su un nastro o un disco pri¬ 
ma di eseguirlo. 

3. Il programma è designato per un Atari 400/800 do¬ 
tato di almeno 16K di memoria, con o senza il DOS 
caricato in macchina. 

4. Se avete un computer da 16K, quando eseguirete 
il programma sullo schermo compariranno strani colo¬ 
ri: la cosa è normale e avrà termine dopo poco tempo. 

5. Quando state per giocare a Ski Run, spegnete e 
riaccendete il computer, caricate il programma e 
quindi eseguitelo. Dopo il comando di inizio il pro¬ 
gramma richiederà alcuni secondi per essere esegui¬ 
to. Per cominciare a giocare premete START. 

Se seguite le regole appena menzionate, vi ritroverete con 
un ottimo gioco scritto interamente in codice macchina, 
qualità caratteristica di un software molto costoso. 

Per spostare il vostro sciatore a destra o a sinistra usate il 
joystick, inserito nel Port 1. Per guadagnare punti dovete 
farlo sciare lungo le bandierine blu, evitando accuratamen¬ 
te gli alberi. Se siete tanto bravi da terminare un percorso 
potrete impegnarvi nel livello successivo: vi sposterete, 
cioè, su una montagna più alta con discese più ripide ed il 
vostro sciatore si muoverà più rapidamente. Il gioco ha ter¬ 
mine quando il vostro sciatore va a sbattere contro un albe¬ 
ro. Premete START per sollevarlo da questa frustrante si¬ 
tuazione. 
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10 REI'! tt SKI RUN BV POUL DONNIN6 %t 
20 REFI 

38 REf’l i'iak e su re you SOME th i s program 
40 RETI before you att-empt to RUN it ! 

45 RE fi 

50 60SUB 1000 
60 GOSIJB 2000 
70 GOSUB 3000 
80 GOSUB 4000 
90 X=USR<1663 > 

L000 FOR 0=1536 TO 1646:READ BsPOKE 0,B: 

NEXT 0 

L001 OOTO 112,112,112,70,0,60,7,0,6,6,11 
8,217,35,54,54,54,54,54,54,54,54,54,54,5 
4,54 

1002 DOTO 54,54,54,54,54,54,54,54,65,0,6 
,0,24,24,24,24,60,60,60,60,60,60,126,126 
, 126 

1003 DOTO 126,126,126,255,255,255,255,25 
5,255,255,25*5*, 12E>, 126,24,24,24,24,24,0,2 
55,255,255,255,255,255 

1004 _DOT0 255,255,192,192,192,192,192,19 
2,192,192 , P , P , 3,3 , P , , 3 , -P , 0,0,0,0,0,0,0 

1005 DATO 0,7,31,127,31,7,1,1,1,0,0 

1006 RETURN 

2000 FOR 0=13568 TO 14636:READ B:POKE 0, 
B:NEXT 0 

2001 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ,0,0,0,0,0,0,0,0,0 

2002 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ,0,0,0,0,0,0,0,0,0 

2003 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ,0,0,0,0,0,0,0,0,0 

2004 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ,0,0,0,0,0,0,0,0,0 

2005 DOTO 0,0,0,101,110,100,0,111,102,0, 
114,111,117,110,100,0,0,0,0,0,0,0,0,0,0 

2006 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 ,0,0,0,0,0,0,0,0,0 

2007 DOTO 0,0,110,101,120,116,0,114,111, 
117,110,100,0,0,0,0,0,0,0,0,0,0,0,0,0 

2008 DOTO 0,99,111,109,105,110,103,0,0,1 
17,112,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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r'O'R'o'r'r'O'O'O'o 
'0'0'0'0'0'0'0'0'0'0'0'0'0'Q'e tUttO 0£03 

0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 'e 

'0'0'0'0'0 # 0'0'0'0'0'0'0'0'0'0 ttlttO 6303 

0 r 0 f 0 r 0 , 0 r 0 , 0 f 0 , 0 r 0 
'0'0'0 # 0'0'0'0'0'0 # 0'0'0'0'0'0 ttiOO 8303 

R ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO Z303 

0 , 0 < ’ 0 , ' 0 ' 0 *' 0 ' 0 r 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 9303 

R ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
# 0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO S303 

fl ' fl ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO *303 

0 ' 0 r 0 ' 0 , 0 ' 0 , 0 , 0 , 0 r 0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO £303 

0 , 0 , 0 , 0'0'0 , 0'0' r 0'0 
'0'0'0'0'0'0'0'0'0'0'0 # 0'0'0 # 0 ttlttO 3303 

R'0'0'0'0'0'0'0'3'0 
'8'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 1303 

R'0'0'0'0'0'0'0'0'0 
'0'0'0'0'0'0'0'0'0'0'0'0 # 0'0'0 ttlttO 0303 

0'0'0'0'0'0'0'0'0 r 0 
'0'0'0'0 # 0'0'0'0'0'0'0'0 # 0'0'0 ttlttO 6T03 

0 r 0 ' 0 r 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 8103 

0 ' 0 ' 0 ' 0 ' 0 , 0 r 0 4 r 0 ' 0 , 0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO Z103 

R ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
# 0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 9103 

0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 r 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO S103 

0 , 0 ' 0 r 0 , 0 ' 0 , 0 , 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO H03 

R ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0 # 0'0'0'0'0 ttlttO £103 

0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 3103 

R ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 1103 

0 , 0 # 0 ' r 0 r 0 ' 0 , 0 ' 0 r 0'0 
'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 0103 

0 r 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0 ' 0'0 
'0'0'0 # 0'0'0'0'0'0'0'0'0'0'0'0 ttlttO 6003 
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2831 CIATO 8,8,0,0,6,8,8,0,8,0,8,0,0,0,0, 
0,0,0,0,0,0,0,8,8,8 

2832 DATA 0,51,43,41,8,50,53,46,0,0,0,0, 
0,0,0,0,0,0,0,51,35,4?,50,3?,0 

2033 DATA 16,16,16,16,16,0,8,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2034 DATA 0,0,0,0,63,63,63,63,63,63,63,6 
3,63,63,63,63,63,63,63,63,63,63,63,63,63 
2835 DATA 63,63,63,0,8,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0 

20ii6 DATA 0,6,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2037 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2038 DATA 8,8,8,8,0,0,8,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

2839 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,8,0,0 

2848 DATA 8,0,0,0,0,0,8,8,0,0,0,0,0,8,0, 
0,0,0,0,0,0,0,0,0,0 

2841 DATA 8,8,0,0,8,0,0,0,0,8,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,36 

2042 DATA 36,36,36,36,36,36,36,36,36,36, 
36,36,36,36,36,0,6,8,0,0,0,0,0,0,0 

2043 DATA 0,0,0,0,8,0,0,0,0,0,129,129,12 
9,90,90,90,60,60,68 

2044 RETURN 

3000 FOR A=14848 TO 15475:READ B:POKE A, 
Bs NEXT A 

3001 DATA 169,175,141,1,210,169,0,141,11 
,6,169,32,141,12,6,169,14,141,280,2,169, 
200,141,196,2 

3002 DATA 169,32,133,213,169,120,141,197 
,2,162,6,169,0,157,0,29,202,208,248,160, 
0,185,0,224,153 

3003 DATA 0,56,185,0,225,153,0,57,185,0, 
226,153,0,58,185,0,22<', 15^,0,59,136,208, 
229,169,32 

3004 DATA 133,208,162,16,160,0,169,0,145 
,207,136,288,249,230,288,202,208,242,169 
,56,141,244,2,168,88 

3005 DATA 185,37,6,153,8,56,136,208,247, 
169,0,141,48,2,169,6,141,49,2,166,213,17 
3,10,210,133 
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3006 DOTA 205,173,10,210,41,14,3,32,133, 
206,163,1,160,0,145,205,160,24,163,2,145 
,205,160,48,163 

3007 DATA 3,145,205,160,72,163,4,145,205 
,202,208,215,162,32,173,10,210,133,205,1 
73,10,210,41,14,9 

3008 DATA 32,133,206,160,0,177,205,201,0 
,208,234,169,73,145,205,202,208,227,162, 
8,163,0,157,0,32 

3003 DATA 202,208,248,32,131,3,32,17,10, 
160,0,140,5,212,32,32,3,152,72,104,168,1 
73,120,2,201 

3010 DATA 7,240,26,201,11,240,3,76,14,9, 
165,212,201,56,240,23,138,212,165,212,14 
L,0,208,141,1 

3011 DATA 208,76,14,9,165,212,201,192,24 
0,10,230,212,165,212,141,0,208,141,1,208 
,173,4,208,201,0 

3012 DATA 240,3,32,235,3,200,192,8,208,1 
82,76,52,9,152,72,160,24,162,0,202,208,2 
53,163,0,141 

3013 DATA 0,210,136,208,243,104,168,36,1 
7 j., 11,6 , 24,105 , 24,141,11,6,1 rj,12,6, 105, 
0,141,12,6 

3014 DATA 173,12,6,201,45,240,3,76,209,8 
,163,0,163,0,141,11,6,169,27,141,12,6,17 
3,35,3 

3015 DATA 201,7,240,3,206,35,3,162,0,138 
,72,32,32,9,104,170,202,208,246,141,11,6 
,163,32,141 

3016 DATA 12,6,165,213,24,105,16,133,213 
, 7b,44,8,163,58,141,192, 2 , 169,0,141,13-^, 
2,169,128,141 

3017 DATA 6,208,133,212,163,128,141,1,20 
8,163,0,141,2,208,141,3,208,141,4,208,14 
1,5,208,141,6 

3018 DATA 208,141,7,208,163,3,141,23,208 
,163,48,141, < ,212,163,62,141,4 (» 2,162,0, 
169,0,157,0 

3013 DATA 52,157,0,53,202,208,245,162,17 
,189,0,31,157,128,53,202,208,247,162,17, 
189,32,31,157,128 

3020 DATA 52,202,208,247,162,96,189,0,30 
, 15 < ,255,53,202,208,24 i ,36,1('J,4#208,201 
,2,240,16.173,31 
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3021 DfiTfi 208,201,6,208,249,169,255,141, 
30,288,76,0,8,72,32,17,10,169,1,141,30,2 
08,173,10,210 

3022 ORTO 141,0,210,96,32,101,10,238,4,2 
9,173,4,29,201,10,240,1,96,169,0,141,4,2 

q # 238 » 3 

3023 DfiTfi 29,l'73,3,29,201,10,240,1,96,16 
9,0,141,3,29,238,2,29,173,2,29,201,10,24 
8,1,96 

3024 DfiTfi 169,0,141,2,29,238,1,29,173,1, 
29,201,10,240,1,96,169,0,141,1,29,238,0, 

29,173 

3025 DfiTfi 0,29,201,10,240,1,96,169,0,141 
,0,29,0,162,5,189,255,28,24,105, lò,15i',ii 
0,60,202 

3026 DATA 208,244,96 

3027 RETURN 

4000 POR fi=1663 TO 1738:READ B:POKE fl,B: 

NEX'f fi 

4001 DfiTfi 104,169,0,133,203,169,53,133,2 
04,160,0,132,205,169,27‘, 133,206,177,203, 
145,205,200,208,249,230,204 

4002 DfiTfi 230,206,165,206,201,32,208,239 
,169,0,133,203,133,205,169,58,133,204,16 
9,8,133,206,177,203,145 

4003 DfiTfi 205,200,208,249,230,204,230,20 
6,165,204,201,61,208,239,169,0,133,12,16 
9,8,133,13,76,0,8 


4005 RETURN 
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Come scrivere 
programmi 
migliori 

di Tim Hartnell 


Questo libro contiene molti, ottimi programmi, come del re¬ 
sto la maggior parte delle riviste specializzate in computer. 
D'altra parte, per quanto siano buoni i programmi proposti 
dalle pubblicazioni, è certo che far “girare” un programma 
parzialmente e completamente scritto da te ti offre un pia¬ 
cere maggiore. Variando i programmi, dai il tuo tocco per¬ 
sonale, rifletti i tuoi desideri, la tua creatività. Questo è un 
modo eccellente per migliorare i programmi e alla fine, na¬ 
turalmente, diverrai un programmatore migliore e la tua im¬ 
maginazione sarà potenziata. 

I programmi, presentati dai periodici o da libri come que¬ 
sto, sono un ideale trampolino di lancio per i tuoi progressi 
in questo settore. Scoprirai che perfino la pubblicità sul 
software può ispirarti delle idee. Devi solo leggere la de¬ 
scrizione dei programmi commercialmente disponibili e fa¬ 
rai il primo passo verso la creazione del "tuo” programma. 
Naturalmente, non ti è consentito di violare la legge sul di¬ 
ritto d’autore per quanto riguarda i dati e le informazioni il¬ 
lustrati sul video, il nome del programma, o i nomi dei "ca¬ 
ratteri” aH’interno del programma. Probabilmente scoprirai 
che il programma, a mano a mano che si sviluppa, prende¬ 
rà vita propria, crescerà e si evolverà staccandosi dallo 
schema originale finché il tuo gioco risulterà concepito e 
realizzato in un modo completamente nuovo. 
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Qualsiasi cosa tu faccia, non far passare mai come tuo il 
lavoro di un altro. Adatta e migliora i programmi pubblicati 
con ogni mezzo, ma poi non presentarli ai periodici come 
se fossero originali. Ho perduto il conto delle volte in cui mi 
è stata proposta la pubblicazione di un programma che era 
stato tratto da uno dei miei libri. Ricordati che i libri e i pe¬ 
riodici specializzati in giochi e computer sono tutti ottimi 
spunti per le tue idee. Troverai sulla tua strada sempre nuo¬ 
ve idee per giochi, forme di caratteri, suoni, conclusioni a 
sfondo drammatico, e così via. È opportuno che tu ne pren¬ 
da nota. In questo modo non ti troverai mai a corto di idee e 
sarai in grado di unire il materiale per produrre programmi 
migliori e capaci di tener desta l’attenzione del giocatore 
più a lungo. 

I giochi si dividono in tre categorie. È utile quindi che tu in¬ 
dividui la categoria alla quale appartiene il programma che 
proponi prima di iniziarlo, dato che la categoria del gioco 
altera materialmente il modo di dare inizio alia programma¬ 
zione. Ciò non significa che a mano a mano che lo sviluppi, 
il programma non possa passare da una categoria all’altra, 
né che un particolare gioco non possa svilupparsi tra due 
categorie, ma è tuttavia utile considerare i vari gruppi sepa¬ 
rati per avere idee chiare. Le tre categorie sono: 

1) Board games (scacchi, dama, e simili) 

2) Arcade games (giochi di movimento veloce, di fanta¬ 
sia, pieni di rumori, in tempo reale) 

3) Giochi di fortuna (come Roulette e Snap) 

Nei “Board games” la qualità del gioco è più importante 
della velocità della risposta. Negli “Arcade games” il movi¬ 
mento deve essere mantenuto ad ogni costo, anche se ta¬ 
lune “intelligenze” tra i tuoi invasori Marziani devono esse¬ 
re, a tale scopo, sacrificate. I giochi di fortuna si basano 
sulla facilità di gioco e sulla casualità vera e propria in mo¬ 
do maggiore rispetto alle altre due categorie. 

Scoprirai che i programmi dei giochi si dividono in generi, i 
quali a loro volta sono suddivisioni delle tre categorie di cui 
sopra. Molti "board” games sono varianti della dama o de¬ 
gli scacchi, molti “arcade” games erano originariamente 
giochi del tipo “Invasori dello spazio” mentre i giochi di 
fortuna sono nati nel “mondo reale” dei dati e delle carte. 
Prestare attenzione alla descrizione di un programma o a 
una macchina da gioco, per provare ad indovinare la cate¬ 
goria a cui appartiene il gioco che stai osservando, può aiu- 
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tarti e ispirarti nuove idee che si adattino a quel particolare 
genere di giochi. Esiste un concetto nell’ambito della pro¬ 
grammazione — chiamato generalmente “programmazio¬ 
ne strutturata’’ — secondo il quale la disciplina è essenzia¬ 
le all’inizio del processo di scrittura dei programmi. Pur es¬ 
sendo meno interessante del fatto di sedersi subito davanti 
al computer, alla fine il programma prodotto sarà migliore. 
Una volta scrissi un programma chiamato Dome Dweller 
(Abitante di cupole) un programma a simulazione nel quale 
il giocatore ha il controllo di una “cupola lunare” e deve 
decidere quali prodotti produrre e vendere al fine di com¬ 
prare ossigeno e cibo per gli abitanti del posto (vedi The 
hook of Listings, scritto da Jeremy Ruston e edito dalla 
BBC). Dopo aver deciso lo schema generale da adottare, 
eleborai i dati e le informazioni da scrivere sul video, nel 
modo seguente: 

Le scorte di ossigeno sono scarse 
All’interno della tua cupola vivono 96 persone nell’an¬ 
no 3 

Il credito in denaro è di $ 5.693 
Le spese di manutenzione annuali ammontano a $ 226 
Le cisterne di ossigeno sono di 811 unità 
L'ossigeno costa $ 8 per unità 
Ogni abitante di cupola necessita di 5 unità all’anno 
Le riserve di cibo ammontano a 2122 
Ogni abitante necessita di 3 unità all’anno ($ 6 ognuno, 
$ 576 per la cupola. Ciò basterà per 7 anni alla popola¬ 
zione attuale) 

Tu puoi commerciare le tue straordinarie sculture lu¬ 
nari con la gente che vive nelle altre cupole. Consumi 2 
unità di ossigeno per la costruzione di un’unica scultu¬ 
ra, e le vendi a $ 30. 

Come hai probabilmente indovinato da questo “printout” 
l’idea del programma è quella di decidere quante "straordi¬ 
narie sculture lunari” devi costruire e vendere al fine di 
comprare ossigeno e cibo e pagare il "mantenimento an¬ 
nuale”. Il problema in questo particolare programma è che 
per costruire ogni scultura si consuma ossigeno cosicché il 
giocatore si trova combattuto fra il desiderio di guadagnare 
e la necessità di usare l’ossigeno intelligentemente. 

Puoi provare a scrivere un programma come questo da so¬ 
lo. In tal caso potresti riuscire a scrivere un programma di¬ 
vertente e ciò svilupperebbe notevolmente la tua capacità 
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di programmazione. La prima cosa da fare è un elenco di 
ciò che il programma deve compiere: 

Stabilire le variabili necessarie 

Comunicare al giocatore in quali condizioni si trova la 

cupola 

Chiedere quanto ossigeno bisogna comprare 
Controllare se si ha il denaro sufficiente. In caso positi¬ 
vo comprarlo, altrimenti ritornare e chiedere di nuovo 
Chiedere quanto cibo deve essere comprato 
Controllare se il denaro è sufficiente. In caso positivo 
comprarlo, altrimenti ritornare e chiedere di nuovo 
Rinnovare la quantità di ossigeno 
Rinnovare la quantità di cibo 
Ridurre il totale del denaro lasciato 
Domandare quante sculture devono essere costruite 
Controllare se c’è l’ossigeno sufficiente per la costru¬ 
zione di quel numero di statue. In caso negativo ritor¬ 
nare indietro e chiedere di nuovo 
Ridurre la quantità di ossigeno per l'ammontare neces¬ 
sario alla costruzione del numero di sculture specifica¬ 
to. Incrementare il totale del denaro per considerare il 
prezzo delle sculture costruite 
Incrementare leggermente l’intera popolazione, ag¬ 
giungere uno air'anno attuale” 

Controllare se le riserve di cibo sono sufficienti per ali¬ 
mentare l’intera popolazione 
Verificare se l'ossigeno è sufficiente per l’intera popo¬ 
lazione 

Verificare se c’è un po’ di denaro 
Se qualcuna fra queste condizioni è negativa (per 
esempio, il cibo non è sufficiente) trasmettere l’azione 
ad un sottoprogramma “fine-gioco” 

Se tutte le condizioni sono positive, ripetere di nuovo le 
istruzioni per comunicare al giocatore le condizioni in 
cui si trova la cupola, e continuare a ripetere le istru¬ 
zioni. 

Probabilmente saresti capace di scrivere un programma 
“Dome Dweller” usando le voci qui sopra elencate e l’in¬ 
formazione campione "printout”. C’è comunque un segre¬ 
to che vorrei svelarti e che risolve quasi istantaneamente i 
problemi legati alla programmazione. In realtà, sei in grado 
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di scrivere tutte le parti vitali di un programma come que¬ 
sto quando ne hai eleborato soltanto un rozzo schema ge¬ 
nerale, prima quindi di passare ai dettagli. E una volta che 
hai la struttura, puoi elaborarla per tutto il tempo che vuoi, 
sapendo che, mentre fai ciò, il programma che stai svilup¬ 
pando è in ogni momento operante. Non devi aspettare la 
fine per metterlo in funzione e vedere come tu stesso ti 
comporti. Il “segreto” è di mantenere l’intero programma 
aH'interno di una serie di sottoprogrammi a disposizione, 
ognuno dei quali mantenuto in un circuito di istruzioni conti¬ 
nuo. Ecco come ciò che ho riferito può adattarsi a questo 
programma. Le primissime righe che inserirai nel tuo com¬ 
puter saranno le seguenti: 

10 REM DOME DWELLER 

20 GOSUB 1000: REM ASSEGNAZIONE DELLE VA¬ 
RIABILI 

30 GOSUB 2000: REM VISUALIZZAZIONE DELLA SI¬ 
TUAZIONE DELLA CUPOLA 
40 GOSUB 3000: REM OSSIGENO 
50 GOSUB 4000: REM CIBO 
60 GOSUB 5000: REM SCULTURA 
70 GOSUB 6000: REM AUMENTO DELLA POPOLA¬ 
ZIONE 

80 GOSUB 7000: REM CONTROLLO DELLA SITUA¬ 
ZIONE DELLA CUPOLA 

90 IF (tutte le condizioni sono positive, da GOSUB 
7000) THEN GOTO 30 
100 REM Fine del gioco... 

Come tu stesso puoi vedere, una volta che hai stabilito il 
“loop principale delle istruzioni”, è relativamente facile 
compilare uno ad uno i sottoprogrammi, e allo stesso tem¬ 
po sperimentarli ed elaborarli. In questo modo otterrai un 
ottimo programma. La sola cosa che adesso ti serve è un 
elenco delle variabili che userai insieme al programma. So¬ 
no dell’opinione che il modo migliore per far ciò sia quello 
di utilizzare nomi espliciti per le variabili. In questo modo, 
mentre stai programmando, non devi perder tempo nel ve¬ 
rificare, per esempio, se AA indica la popolazione o il nu¬ 
mero delle unità di ossigeno consumate per costruire ognu¬ 
na delle sculture. Per facilitare il più possibile i programmi, 
nella trasmissione di questi fra differenti computer, puoi re- 
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star fedele ai nomi variabili a due lettere, o puoi usufruire 
(se il tuo computer lo permette) di nomi lunghi (come 
OXYUSE per la quantità di ossigeno usata) per le variabili. 
Di conseguenza non avrai dubbi sul significato di ogni no¬ 
me di variabile. Per dimostrarti l’efficacia di questo accor¬ 
gimento e per illustrarti un ulteriore vantaggio dei nomi 
espliciti per le variabili, ecco le variabili usate nel Dome 
Dweller: 

FOLK — la popolazione della cupola 
CASH — denaro in cassa 
FOOD — le riserve di cibo a disposizione 
FOODCOST — quanto costa ogni unità di cibo 
FOODNEED — quante unità di cibo sono consumate 
da ogni persona nell’arco di un anno 
ARTCOST — quanto ossigeno è consumato per co¬ 
struire ogni pezzo di scultura 
ARTPAY — a quanti dollari ogni pezzo è venduto 
OXY — le riserve di ossigeno a disposizione 
OXYNEED — quante unità di ossigeno sono consuma¬ 
te da ogni persona nell’arco di un anno 
OXYCOST — quanto costa ogni unità di ossigeno che 
deve essere comprata 

REPAIR — il costo annuale delle riparazioni concer¬ 
nenti la cupola 

YEAR — l’anno di vita della cupola 

Sebbene i nomi espliciti di variabile consumino maggiore 
memoria rispetto ai nomi di variabile a una o a due lettere, 
il loro uso permette di seguire un programma in modo mol¬ 
to facile, controllando ciò che compie in realtà ogni sezione 
del programma. Inoltre, e questo è l’ulteriore vantaggio che 
ho menzionato, al momento di scrivere il programma, è ol¬ 
tremodo facile inserire le formule richieste per operazioni 
di calcolo. Con questo voglio dire che se, per esempio, de¬ 
sideri includere (come faccio io in questo programma) 
un’indicazione di quanto ossigeno è necessario ogni anno, 
moltiplichi semplicemente il numero delle persone presenti 
nella cupola (FOLK) per il numero di unità di ossigeno di cui 
ogni persona necessita in un anno (OXYNEED). A questo 
punto puoi includere entro le “print” le condizioni riguar¬ 
danti la cupola come, ad esempio: 
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PRINT "CI SONO”; FOLK; "NELLA CUPOLA” 

PRINT "NELL’ANNO”; YEAR 
PRINT "OGNI PERSONA ABBISOGNA DI”; OXY- 
NEED; “UNITÀ DI” 

PRINT "OSSIGENO OGNI ANNO,”; OXYNEED * FOLK; 
"FABBISOGNO ANNUALE DI OSSIGENO" 

PRINT "PER L’INTERA CUPOLA” 

In questo modo è anche più facile verificare se è possibile 
comprare. Per esempio, per comprare cibo, potresti dire: 

PRINT “QUANTO CIBO VUOI COMPRARE?” 

INPUT A 

IF A * FOODCOST>CASH THEN GOTO (un’altra A) 

I consigli che seguono possono migliorare i tuoi programmi 
facendo uso di una “programmazione strutturata”: 

— redigere un campione di "printout” o un modello di¬ 
mostrativo dei dati e delle informazioni illustrati sul vi¬ 
deo 

— redigere una lista di ciò che il programma deve 
compiere ogni volta che attraversa il "loop principale 
di istruzioni” 

— trasformare questa lista in una serie di sottopro¬ 
grammi a disposizione 

— se possibile, usare espliciti nomi per le variabili 

Se stai progettando dei programmi che poi saranno usati 
da altri, assicurati che sia estremamente chiaro ciò che il 
giocatore dovrebbe fare mentre conduce il programma. In¬ 
cludere una lunga serie di istruzioni non è di molta utilità, 
specialmente quando la memoria è limitata, ma è in ogni 
caso opportuno prenderne nota. Inoltre, i suggerimenti de¬ 
stinati all’utente dovrebbero essere espliciti (come INSERI¬ 
SCI IL NUMERO DELLE MOSSE CHE VUOI EFFETTUARE) 
e dovrebbero avvertire riguardo i limiti che saranno posti 
sull’input (CON QUANTE CARTE VUOI INCOMINCIARE: 1, 

2, o 3 ?, per esempio). 

Non puoi supporre che sarai sempre presente ogniqualvol¬ 
ta un programma è in funzione, quindi, dovresti fare del tuo 
meglio per renderne il funzionamento il più possibile facile 
e sicuro. Se è possibile, aggiungi dei sottoprogrammi che 
eliminino gli errori. 
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In tal modo se si è precedentemente inserito un sottopro¬ 
gramma alternativo e c’è stato un errore, questo non rovi¬ 
nerà il programma e non lo renderà incapace di dare buoni 
risultati in seguito. 

Se leggi questa parte del libro da cima a fondo più di una 
volta e tenterai di applicare le idee qui proposte al tuo lavo¬ 
ro di programmazione, la qualità del tuo lavoro migliorerà 
in modo significativo. Ciò ti permetterà anche di dedicare 
più tempo al miglioramento e al perfezionamento di un pro¬ 
gramma e minor tempo ai semplice lavoro meccanico di 
renderlo operativo. 
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A 

Accumulatore — Il posto all'Interno del computer entro il 
quale si compiono calcoli aritmetici e dove i risultati di tali 
calcoli sono immagazzinati. 

Algoritmo — La serie di passi compiuti dal computer per 
risolvere un particolare problema. 

Alfanumerico — Questo termine è generalmente usato in 
relazione ad una tastiera. Esempio: “è una tastiera alfanu¬ 
merica”. Ciò significa che la tastiera ha sia lettere sia nu¬ 
meri. Indica anche "la serie di caratteri” del computer e 
comprende i numeri e le lettere che il computer può ripro¬ 
durre sul video. 

ALU (Arithmetic/Logic Unit) — La parte del computer 
adibita ad operazioni aritmetiche (come l’addizione e la 
sottrazione) e in cui vengono prese le decisioni. 

AND — Un’operazione logica "booleana” che il computer 
usa nei suoi processi decisionali. È basata sull’algebra di 
"Boole”, un sistema sviluppato dal matematico George 
Boole (1815-64). Nell’algebra di Boole le variabili di 
un’espressione sono soggette alle operazioni logiche come 
AND, OR, NOR, ecc. 

ASCII — Sta per American Standard Code for Information 
Exchange (Codice Americano Standard per lo Scambio di 
Informazioni) ed è il sistema in codice più largamente usato 
per la lingua inglese con caratteri alfanumerici. Ci sono 
128 lettere maiuscole e minuscole, cifre e alcuni caratteri 
speciali. Il codice ASCII trasforma i simboli e le istruzioni di 
controllo in combinazioni binarie a sette “bit”. 
ASSEMBLER — Un programma che trasforma i program¬ 
mi scritti nel linguaggio Assembly in codice macchina (che 
il computer può comprendere in modo diretto). Il linguaggio 
Assembler è un linguaggio di programmazione a basso li¬ 
vello che usa le combinazioni facilmente memorizzabili di 
due o tre lettere per rappresentare una particolare istruzio¬ 
ne che l’Assembler poi trasforma affinché il computer pos¬ 
sa comprenderlo. Esempio: ADD (aggiungere) e SUB (sot¬ 
trarre). Un computer programmatico nel linguaggio Assem- 
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bler tende a lavorare più velocemente di un altro program¬ 
mato in un linguaggio di alto livello come il BASIC. 


B 

BASIC —È un acronimo per Beginners All-Purpose Symbo- 
lic Instruction Code. È il linguaggio per computer più larga¬ 
mente usato nel settore dei micro-computer. Sebbene sia 
stato molto criticato, ha il vantaggio di essere molto facile 
da imparare. Molte espressioni BASIC sono simili all’ingle¬ 
se comune. 

BAUD — Viene da Baudot, un pioniere della comunicazio¬ 
ne telegrafica. Baud misura il livello di trasmissione delle 
informazioni ed è approssimativamente uguale a un bit per 
secondo. 

BCD — Un’abbreviazione per Binary Coded Decimai (Bi¬ 
nario Codificato Decimale). 

Benchmark — Un test con cui possono essere misurate 
certe funzioni del computer. Ci sono molti "test standard 
Benchmark”, che generalmente sperimentano soltanto la 
velocità. Questo è un aspetto raramente importante in un 
microcomputer, il tipo di computer più interessante per un 
potenziale compratore. 

Binario — Un sistema numerico che usa soltanto i numeri 
zero e uno. 

Bit — Un’abbreviazione per Binary Digit (cifra binaria). È la 
più piccola unità di informazione che un circuito di compu¬ 
ter può riconoscere. 

Boole, Algebra di — Il sistema algebrico sviluppato dal 
matematico George Boole che usa numerazioni algebriche 
per esprimere relazioni logiche (vedi AND). 

Bootstrap — Un breve programma o sottoprogramma che 
viene letto all’interno del computer quando è acceso per la 
prima volta. Orienta il computer ad accettare i programmi 
successivi, di lunghezza maggiore. 

Bug — Un errore che impedisce il funzionamento del pro¬ 
gramma. Sebbene sia generalmente usato per indicare so¬ 
lo un difetto o un errore nel programma, il termine bug può 
anche essere usato per un difetto nell’hardware del com¬ 
puter. 
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Bus — Un numero di conduttori usati per trasmettere se¬ 
gnali, dati e istruzioni. 

Byts — Un gruppo di cifre binarie che compone una parola 
di computer. Generalmente i bits presenti in un byte sono 
otto. 


c 

CAI — Computer Assisted Instruction 
CAL — Computer Assisted Learning. Il termine è general¬ 
mente usato per descrivere quei programmi che coinvolgo¬ 
no lo studente in processi di apprendimento. 

CHIP — Il termine che si usa per indicare l’intero circuito, 
che è inciso su un piccolo pezzo di silicio. Il chip è, natural¬ 
mente, il cuore del computer. 

CLOCK — Il congegno di sincronizzazione aH’interno del 
computer che sincronizza le sue operazioni. 

COBOL — Un linguaggio ad alto livello che deriva dalle pa¬ 
role Common Business Orientated Language. Il COBOL è 
usato principalmente per la schedatura e il mantenimento 
di ciò che è stato registrato. 

Comparator — Un congegno che mette a confronto due 
cose e produce un segnale collegato con la differenza tra i 
due. 

Compiler — Un programma che trasforma i linguaggi di 
programmazione ad alto livello in codici binari da macchi¬ 
na. In questo modo i programmi scritti in linguaggi ad alto 
livello possono essere utilizzati dal computer. 
Complement — Un numero che è derivato da un altro se¬ 
condo regole stabilite. 

Computer — Un congegno con tre principali capacità o 
funzioni: 

1) accettare i dati 

2) risolvere i problemi 

3) fornire risultati. 

CPU — Sta per Central Processing Unit. È il cuore dell’in¬ 
telligenza del computer dove si gestiscono i dati e si svilup¬ 
pano le istruzioni. 

Cursore — Un carattere che appare sul video quando il 
computer sta compiendo le sue operazioni. Esso rivela do- 
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ve il prossimo carattere sarà stampato. Su un computer ci 
sono generalmente “tasti di controllo cursore” per permet¬ 
tere all’utente di spostare il cursore sul video. 


D 

Dati — Informazioni presentate in una forma che il compu¬ 
ter può elaborare. 

Debug — Il termine che si usa quando si esamina un pro¬ 
gramma e si correggono eventuali errori, cioè, trovare e ri¬ 
muovere i bugs, i difetti. 

Digital Computer — Un computer che opera su quelle in¬ 
formazioni che si presentano come digitali. 

Disk/Disc — È un disco di plastica sensibilizzato magneti¬ 
camente, un poco più piccolo di un “45 giri”. È usato per 
l’immagazzinamento dei programmi e per ottenere dati. I 
dischi sono notevolmente più veloci da caricare rispetto ad 
una cassetta della stessa lunghezza di programma. Si può 
accedere molto velocemente su un disco mentre un pro¬ 
gramma sta operando per ottenere ulteriori dati. 

Display — L’output visivo del computer, generalmente su 
un video, o su uno schermo di monitor. 

Dot Matrix Printer — Una stampante che stampa i listati 
di un programma o di ciò che appare sul video. Ogni lettera 
e ogni carattere sono composti da un certo numero di 
“dots”, cioè di punti. Più aito è il numero di punti per ogni 
carattere e migliore sarà la qualità operativa della stam¬ 
pante. 

Dynamic Memory — Un’unità di memoria all’interno del 
computer che “dimentica” ciò che contiene quando viene 
tolta l’alimentazione elettrica. 


E 

Editor — Questo termine è generalmente usato per desi¬ 
gnare quella sezione del computer che permette al pro¬ 
grammatore di cambiare le istruzioni di un programma 
mentre lo sta scrivendo. 
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EPROM — Sta per Erasable Programmable Read-Only Me¬ 
mory. È come il ROM nel computer, con la sola differenza 
che è abbastanza facile inserire materiale all'interno di una 
EPROM che non sparisce quando si toglie l’alimentazione. 
Le EPROM devono essere esposte a forti raggi ultravioletti 
se si vuole cancellarle. 

Error Messages (Messaggi di errore) — L’informazione 
data da un computer che indica dove è stato commesso un 
errore nella codificazione durante una parte del program¬ 
ma. L’informazione è trasmessa dal computer che si ferma 
e stampa una parola, o una parola e dei numeri, o soltanto 
una combinazione di numeri, in fondo al video. Questo rive¬ 
la quale errore è stato fatto. Gli errori più comuni includono 
l’uso della lettera 0 invece dello zero in una linea, o l’omis¬ 
sione in una espressione di entrambe o di una delle paren¬ 
tesi, o l’errore nella definizione di una variabile. 


F 

File — Una serie di item d’informazione collegati fra loro e 
organizzati in modo sistematico. 

Floppy Disk — Un disco magnetico relativamente poco 
costoso, usato per immagazzinare le informazioni dei com¬ 
puter, e così chiamato perché molto flessibile (vedi 
Disk/Disc). 

Flow Chart — Un diagramma tracciato prima di scriveré 
un programma nel quale le principali operazioni sono rac¬ 
chiuse entro rettangoli o altre forme e connesse a frecce 
attraverso linee per rappresentare "loop” di istruzioni, e le 
decisioni scritte fra parentesi. Ciò ti aiuta a scrivere un pro¬ 
gramma in modo molto più semplice perché trappole come 
loop infiniti o variabili non definite possono essere scoperte 
in ogni fase. Può risultare utile scrivere questo dia¬ 
gramma per programmi molto brevi, ma è senz'altro con¬ 
veniente se si vuole creare un programma più lungo. 
Firmware — Ci sono tre tipi di "ware” nei computer: cioè 
programmi software “temporanei”; hardware, come quelli 
contenuti nelle ROM permanenti; e firmware, nel quale l’in¬ 
formazione è relativamente permanente, come in una 
EPROM (vedi EPROM). 
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Flip-Flop — Un circuito che mantiene in memoria una 
condizione elettrica finché questa non è cambiata nella 
condizione opposta da un segnale. 

FORTRAN — Sta per FORmula TRANsiation (traduzione di 
formula). È un linguaggio di computer ad alto livello, orien¬ 
tato verso problemi matematico-scientifici. 


G 

Gate — Un circuito elettrico che, sebbene possa captare 
uno o più segnali in arrivo, manda in uscita soltanto un sin¬ 
golo segnale. 

Graphics — Informazione grafica, in opposizione alle in¬ 
formazioni fornite da lettere e numeri. 


H 

Hard Copy — Uscita di computer il cui supporto è perma¬ 
nente. 

Hardware — Le parti fisiche di un computer (vedi anche 
software e firmware). 

Hexadecimal (Hex) — Un sistema numerico con base se¬ 
dici, Sono usate le cifre da zero a nove e le lettere A, B, C, 
D, E, F per la rappresentazione dei numeri. A è uguale a 10, 
B è uguale a 11, C è uguale a 12, e così via. Hex è spesso 
usato dagli utenti di microcomputer. 

Hax Pad — Una tastiera specificamente progettata per in¬ 
serire numerazioni esadecimali. 

High Levai Language (Linguaggio ad alto livello) — Un lin¬ 
guaggio di programmazione che permette all'utente di par¬ 
lare con il computer più o meno in lingua inglese. In gene¬ 
rale più è alto il livello del linguaggio (cioè, più è simile 
all’inglese) più lungo sarà il tempo impiegato dal computer 
per tradurlo in un linguaggio che esso può utilizzare. Lin¬ 
guaggi a più basso livello sono molto più difficili per l'opera¬ 
tore umano ma generalmente offrono una esecuzione più 
veloce. 
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Input — L’informazione inserita nel computer attraverso 
una tastiera, un microfono, una cassetta o un disco. 
Input/Output (I/O Device) — Un congegno che accetta le 
informazioni o le istruzioni dal mondo esterno, le trasmette 
al computer e, dopo l’elaborazione, le rinvia, o sotto una 
forma adattabile alla memorizzazione, o una forma com¬ 
prensibile all’essere umano. 

Instruction — Il dato che comanda una sola azione 
nell’elaborazione delle informazioni operate dal computer 
(noto anche come comando). 

Integrateci Circuit (Circuito integrato) — Un completo cir¬ 
cuito elettronico residente sulla superficie di un semicon¬ 
duttore. 

Interface — Il confine fra il computer e un periferico co¬ 
me la stampante. 

Interpretar — Un programma che traduce, istruzione per 
istruzione, il linguaggio ad alto livello inserito da un opera¬ 
tore umano in un linguaggio che la macchina può capire. 
Inverter (Invertitore) — Un “gate” logico che cambia 
nell’opposto il segnale inserito. 

Interactive Routine (Sottoprogramma Interattivo)— Parte 
di un programma che è ripetuto più volte finché non si rag¬ 
giunge una data condizione. 


J 

Jump Instruction — Un’istruzione che dice al computer 
di muoversi verso un’altra parte del programma, quando la 
destinazione di questo spostamento dipende dal risultato di 
un calcolo appena compiuto. 

K 

K — Questa lettera riporta la misura della memoria. La me¬ 
moria è generalmente misurata in blocchi di “K”.Un K con¬ 
tiene 1.024 bytes. 
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Keyword (parola-chiave) — La parola di inizio in una linea 
di programmazione, generalmente la prima parola dopo il 
numero della istruzione. Parole-chiavi sono STOP, PRINT e 
GOTO. 


L 

Language — I linguaggi di computer sono divisi in tre 
gruppi: i linguaggi ad alto livello, come il BASIC, che sono 
relativamente vicini all’inglese ed abbastanza facili da usa¬ 
re per l’uomo; i linguaggi a basso livello, come l'ASSEM- 
BLER, in cui compaiono brevi frasi che hanno qualche col- 
legamento con l’inglese (ADD per add e RET per return, ad 
esempio); e il codice macchina, che comunica più o meno 
direttamente con la macchina. 

LCD — Sta per Liquid Crystal Diode. Alcuni computer co¬ 
me il TRS-80 Pocket Computer usano un “display” LCD. 
LED — Sta per Light Emitting Diode. I numeri luminosi ros¬ 
si che sono spesso usati negli orologi da polso o da muro 
sono composti da LED. 

Logic — La formula matematica di uno studio di relazioni 
fra eventi. 

Loop — Una serie di istruzioni all’interno di un programma 
che sono ripetute finché una particolare condizione viene 
soddisfatta. 


M 

Machine Language o Machine Code (Codice macchina) 
— Un codice che può essere capito e messo in pratica di¬ 
rettamente dal computer. 

Magnetic Disk — vedi Disk e Floppy Disk. 

Mainframe — I computer sono generalmente divisi in tre 
gruppi e il fatto di appartenere ad un certo gruppo dipende 
dalla grandezza del computer. Il computer più venduto è il 
microcomputer. I computer di media grandezza sono i mi¬ 
nicomputer, e i computer giganti che qualche volta si vedo¬ 
no nei film di fantascienza sono computer “mainframe”. 
Fino a 15 anni fa tali computer erano, in termini pratici, i so¬ 
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li disponibili. 

Memory — Dentro un computer ci sono due tipi di memo¬ 
ria. La prima chiamata ROM, è la memoria che arriva già 
programmata sul computer e che dice al computer come 
prendere decisioni e come compiere operazioni aritmeti¬ 
che. Questa memoria non è cancellata se si spegne il com¬ 
puter. Il secondo tipo è la RAM. Questa memoria mantiene 
il programma che è stato scritto sulla tastiera o che è tra¬ 
smesso all’interno tramite una cassetta o un disco. La 
maggior parte dei computer "dimenticano” ciò che è in 
RAM quando vengono spenti. 

Microprocessor — Il cuore di qualsiasi computer. Richie¬ 
de le interfacce con le unità periferiche, l’alimentazione di 
energia e i congegni di input e output. In tal modo può ope¬ 
rare come un microcomputer. 

MODEM — Sta per Modulatore/Demodulatore. È un appa¬ 
rato che permette a due computer di parlare fra loro per te¬ 
lefono. Generalmente i computer usano un supporto nel 
quale è posto un ricevitore telefonico. 

Monitor — Nel linguaggio dei computer ha due significati. 
Un significato è uno schermo simile a quello televisivo. Un 
monitor ha serie difficoltà ad adattarsi ai programmi televi¬ 
sivi e generalmente l’immagine prodotta su un monitor è 
migliore di quella prodotta da una comune Tv. Il secondo si¬ 
gnificato di un monitor si rapporta alla ROM. Il monitor di 
un computer è descritto come il complesso di informazioni 
incorporate nel computer all'atto dell’acquisto. Queste in¬ 
formazioni permettono di prendere decisioni e di compiere 
calcoli aritmetici. 

Motherboard — Una struttura alla quale possono essere 
aggiunti circuiti extra. Questi circuiti spesso offrono facili¬ 
tazioni che non sono incorporate nel computer, come quel¬ 
la di produrre suoni o di controllare una penna ottica. 
MPU — Abbreviazione per Microprocessor Unit. 

N 

Nano-secondo — Un nano-secondo è un millimiliardesi- 
mo di secondo, l’unità di tempo con la quale si misura la 
velocità di un computer o di un microcircuito di memoria. 
Non-Volatile Memory — La memoria che non si perde 
quando il computer è spento. Alcuni computer più piccoli 
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come il TRS-80 Pocket Computer hanno “non volatile me- 
mory”. Le batterie mantengono il programma inserito per 
settecento ore. 

Not ■ Un’operazione booleana che trasforma una cifra bi¬ 
naria nel suo opposto. 

Nuli String — Una "stringa” che non contiene caratteri. 
Nel programma compare sotto forma di due doppie virgo- 
lette, senza niente fra di loro. 

Numerico — Concerne i numeri quando sono opposti alle 
lettere (cioè alfabetico). Molte tastiere sono alfanumeriche, 
sono cioè provviste sia di numeri sia di lettere. 


o 

Octal — Un sistema numerico che usa otto come base e 
quindi le cifre da 0 a 7. Tale sistema non è oggi molto usato 
nel settore dei microcomputer. Il sistema esadecimale è 
più comune (vedi Hexadecimale) 

Operating System — (Sistema operativo) — Il software e 
il firmware, generalmente previsti su una macchina che 
permette di far girare altri programmi. 

OR — Un’operazione booleana che ritorna a 1 se uno o più 
input sono 1. 

Oracle (Oracolo) — Un metodo di messaggi invianti test 
tramite un segnale di trasmissione televisiva. Un set di tele¬ 
test è richiesto per decodificare i messaggi. 

Output — Informazioni o dati trasmessi dal computer a 
congegni quali uno schermo come quello televisivo, una 
stampante o una cassetta. L'output generalmente consiste 
in un’informazione che il computer ha prodotto come risul¬ 
tato della elaborazione di un programma. 

Overflow — Un numero troppo grande o troppo piccolo 
per essere elaborato dal computer. 


P 

Pad — Vedi Keypad 
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Pagina — Spesso usata per indicare la quantità di informa¬ 
zioni necessaria per riempire uno schermo televisivo. Così, 
vedendo una pagina del programma, è possibile analizzare 
la quantità di informazioni che appaiono sul video tutte in 
una volta. 

PASCAL — Un linguaggio ad alto livello. 

Periferico — Qualsiasi cosa che è collegata e controllata 
dal computer, come un’unità a disco, una stampante o un 
sintetizzatore vocale. 

Port — Un connettore attraverso il quale le informazioni 
sono trasmesse o inserite nel computer. 

Prestel — Il nome inglese per un sistema basato sulla tra¬ 
smissione di informazioni via telefono da un computer cen¬ 
trale e sulla loro visualizzazione su uno schermo televisivo. 
Negli Stati Uniti una versione commerciale simile è nota 
come "The Source". 

Program — Nel linguaggio computer può essere una lista 
di istruzioni che si inseriscono nel computer, oppure può 
essere un verbo, cioè "programmare un computer”. 
PROM — Sta per Programmable Read Only Memory. È un 
sistema che può essere programmato e, una volta che lo è 
stato, il programma è permanènte (vedi anche EPROM e 
ROM). 


R 

Random Access Memory (RAM) — La zona di memoria 
entro il computer che può essere cambiata a comando dal¬ 
la persona che usa il computer. Il contenuto della RAM è di 
solito perduto quando un computer è spento. La RAM è l'in¬ 
tegrato che memorizza ciò che viene scritto e anche i risul¬ 
tati di calcoli in atto. 

Read-Only Memory (ROM) — In contrasto alla RAM, l’in¬ 
formazione qui non può essere cambiata dall’utente e non 
va perduta quando si spegne il computer. I dati della ROM 
sono collocati dal produttore e dicono al computer il modo 
con cui deve prendere decisioni e come compiere calcoli 
aritmetici. La misura di capacità della ROM e RAM è data 
in unità K (vedi K). 

Recursion — La ripetizione continua di una parte del pro¬ 
gramma. 
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Registro — Una specifica sezione della memoria nella 
quale uno o più parole di computer sono memorizzate nel 
corso delle operazioni. 

Parola Riservata — Una parola che non può essere usata 
per una variabile in un programma perché il computer la 
leggerà in modo errato. Un esempio è la parola TO. Poiché 
TO ha uno specifico significato nel linguaggio dei compu¬ 
ter, la maggior parte dei calcolatori respinge questa parola 
come nome per una variabile. Lo stesso vale per parole co¬ 
me FOR, GOTO e STOP. 

Routine — Questa parola può essere usata come sinoni¬ 
mo di programma o può riferirsi a una specifica sezione 
aH’interno del programma (vedi anche Subroutine). 

s 

Seconda Generazione — Ha due significati. Il primo si ap¬ 
plica nei confronti dei computer che usano transistor, in op¬ 
posizione alla prima generazione di computer che usavano 
valvole. La seconda generazione può anche indicare la se¬ 
conda copia di un particolare programma. Susseguenti ge¬ 
nerazioni sono danneggiate da un disturbo crescente. 
Semiconduttore — Un materiale che è generalmente un 
isolante elettrico, ma sotto specifiche condizioni può diven¬ 
tare un conduttore. 

Serial — Informazione che è memorizzata o inviata in una 
sequenza, un bit alla volta. 

Segnale — Un impulso elettrico che trasmette dati. 
Silicon Valley — Il nome popolare dato a una zona in Cali¬ 
fornia dove si trovano molti produttori di semiconduttori. 
SNOBOL — Un linguaggio ad alto livello. 

Software — Il programma inserito nel computer dall’uten¬ 
te. Questo programma dice al computer cosa fare. 
Software Compatible — Si riferisce a due differenti com¬ 
puter che possono accettare i programmi scritti per l’altro. 
Static Memory — Un congegno di memoria non volatile 
che trattiene le informazioni per tutto il tempo che il com¬ 
puter è acceso. Tuttavia, non richiede ulteriori consumi di 
energia per mantenere in ordine la memoria. 

Subroutine (Sottoprogramma) — Parte di un programma 
che è spesso inserita molte volte durante l’esecuzione del 
programma principale. Una subroutine finisce con un’istru- 
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zione che comanda di ritornare indietro alla istruzione suc¬ 
cessiva a quella che aveva inviato lo svolgimento del pro¬ 
gramma alla subroutine. 

T 

Teletext — Informazione trasmessa nella sezione superio¬ 
re di un’immagine che appartiene a una trasmissione tele¬ 
visiva. Richiede una struttura speciale per essere decodifi¬ 
cata e per riempire il video di informazioni riguardo il test. I 
messaggi teletext possono anche essere trasmessi tramite 
un cavo, per esempio, il servizio Prestel in Gran Bretagna o 
The Sources negli Stati Uniti. 

Teletype — Un apparecchio simile ad una macchina da 
scrivere che può mandare, ricevere e stampare informa¬ 
zioni. 

Terminale — Un’unità indipendente dell’unità centrale di 
elaborazione. Generalmente consiste di una tastiera e di 
un visore. 

Time Sharing — Un processo attraverso il quale molti 
utenti possono aver accesso a un grande computer che si 
sposta rapidamente da un utente all'altro in sequenza, co¬ 
sicché ogni utente ha l’impressione di essere il solo utente 
del computer. 

Truth Table (Tavola della verità) — Una tavola matematica 
che elenca tutti i possibili risultati di un’operazione boolea- 
na. I risultati dipendono dalle varie combinazioni di input. 


u 

UHF — Ultra High Frequency (300-3000 MegaHertz). 
Ultra Violet Erasing — La luce ultravioletta deve essere 
usata per cancellare le EPROM (vedi EPROM). 


V 

Variabile — Una lettera o combinazione di lettere e simbo- 
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li a cui il computer può assegnare un valore o una parola 
durante il funzionamento di un programma. 

VDU — Abbreviazione per Visual Display Unit. 

Volatile — Indica la memoria che "dimentica” le informa¬ 
zioni in essa contenute quando il computer è spento. 


w 

Word (Parola) — Un gruppo di caratteri o una serie di cifre 
binarie che rappresentano un’unità d’informazione e occu¬ 
pano una singola posizione di memoria. Il computer elabo¬ 
ra una parola come singola istruzione. 

Word-Processor (Elaboratore di testi) — Una macchina da 
scrivere altamente intelligente che permette a chi scrive di 
manipolare il testo, di spostarlo, per giustificare margini e 
per spostare interi paragrafi, se necessario, su un video pri¬ 
ma di mandare l’informazione sulla stampante. Questi ela¬ 
boratori hanno generalmente memorie, cosicché modelli di 
lettere e testi di lettere, scritti precedentemente, possono 
essere nuovamente stampati. 
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SKYDIVER 


2100 — 
3020 — 
3030 — 
3500 - 
3510 - 
3520 — 
3530 - 
3540 - 
3640 — 
3650 — 
3670 — 
10030 - 


Premi START per giocare 
Non avevi 

il paracadute aperto 
BRAVO... 

sei riuscito ad atterrare 

sulla piattaforma con il 

paracadute aperto... 

punteggio 

sei riuscito 

ad atterrare 10 volte 

il tuo punteggio finale:- 

Per favore aspetta un momento 


3D NOUGHTS AND CROSSED 

3070 — Premi START per giocare 
6000 — oppure un uomo contro di me 
6020 — (Batti 1 o 2) 


RACE 

90 — Alto 
3 — Basso 
135 — Marcia miglia 
620 — Un’altra partenza, Basso 


LUNAR LANDING 

486 — Carburante 
830 — Il gioco è finito 
835 — Punteggio elevato 
840 — Premi START 
970 — Sinistra< > Destra 
998 — Buona fortuna 
1010 — Ottimo punteggio 
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XX 

XX 


IX 



DECISION MAKER 

80 — Quante sono le opzioni tra cui scegliere 
90 — Quanti fattori influenzano la decisione 
170 — Inserisci il nome della opzione 
230 — Inserisci il nome del fattore 
320 — Come valuteresti 
330 — Sul 

390 — Ecco cosa penso che dovresti fare: 


SAFE CRACKER 

15 — Premi START 
1007 — Per favore aspetta 
1040 — Ecco la cassaforte...shhhh! ! ! 

1043 — È meglio accendere la luce laterale. Non c’è nes¬ 
suno.... premi START 

1050 — Così va meglio: ora puoi vedere cosa stai facendo 

1070 — Premi START per fare un altro tentativo 

2003 — Qual è il tuo primo numero da 1 a 99 

2500 — Qual è il tuo secondo numero 

3000 — Qual è il tuo terzo numero 

3025 — Hai aperto la cassaforte 

3028 — Bravo, c’erano delle monete in quella 

cassaforte! ! ! 

3029 — Ora prova con quest’altra... 

3850 — Giusto 

3950 — Accidenti!! Hai fatto scattare l’allarme—Tagliamo 
la corda... arriva la polizia 
3960 — Hai preso ...monete dalle cassaforti 
4000 — Hai sbagliato: prova ancora 


TANK BATTLE 

70 — Inserisci la durata del gioco 
50 — Battaglia di carri armati 
260 — Hai finito i colpi 
270 — colpi 1 
290 — colpi 2 
800 — Il gioco è finito 
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DIGIT DODGE 

11 — alto 
1000 — ..invaso.. 

1040 — ottimo punteggio! ! ! 

1050 — Un altro tentativo 
1055 — Arrivederci. 


GRAND PRIX 2 

1000 — sei andato a fracassarti! 

1030 — il tuo punteggio è — premi qualsiasi tasto. 
2005 — il tuo punteggio 
2040 — ora la velocità è 


CITY BOMB 

100 — Quale livello di difficoltà (1-9) 
1000 — Sei atterrato! 

1040 — Bravo, il tuo punteggio era 
2140 — Vuoi riprovare? 

5010 — Punteggio 

10012 — City Bomb - Per favore aspetta 


ENGULF 

5010 — Hai colpito l’alieno, capitano 
5020 — e sei stato distrutto 
6510 — L’hai sconfitto! Bravo 
6520 — Ti ha preso — colpi 

6530 - e ce l’hai fatta in — unità di tempo — rimaste 

6550 — La tua valutazione è 

6570 — Finora il punteggio più alto è 

6590 — Premi 1 per giocare ancora e 2 per smettere 

6620 — Oltre e fuori, capitano 

7010 — Su quale settore sparerai 

7020 — Attraverso 

7040 —■ E in basso 

7070 — Settore già distrutto 

8030 -L’alieno rileva il pericolo del fattore- 


121 










4 


■ 



1 







1 

M 






GIOCHIAMO CON A 1 ARI 






n 

n: 






:zl r. 






r 


8050 — Il computer del Battlestar riferisce: — il punteg¬ 
gio massimo è 
8090 — Ora l’alieno ha 
8110 — Tempo a disposizione — colpi sparati 


COLOUR PUZZLE 


1080 — Bravo! Hai risolto il puzzle. 
2060 — Peccato! Prova ancora. 
2110 — Era rimasto — da riempire 


SOUND PROGRAM 

105 — Premi i tasti per modificare 

106 — Note. Per risentirle premi ‘ESC’ 

170 — Quale tempo (1-4) 


REACTION TIMER 

32 — Nome del giocatore N. 1. 

33 — Nome del giocatore N. 2. 

1000 — Imbroglione! Hai premuto il pulsante troppo presto 
3000 — Vince!... con un tempo di:- 
5080 — Premi il pulsante TIRE’ quando sei pronto 
6000 — Vince il gioco!!... 


MORSE CODE 

100 — Traduttore in codice Morse 
120 — Batti il messaggio che vuoi sentire:- 
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TRADUZIONI 


SPACE DOCKER 

101 — l’aria è finita 
150 — premi START 
1020 — hai attraccato 
1100 — ossigeno avanzato 
10060 — stai perdendo aria 
10070 — e devi attraccare alla 
10080 — nave appoggio che 
10090 — sta passando...Buona fortuna! 


SKI RUN 

30 — Assicuratevi di registrare questo programma 
40 — prima di provare a eseguirlo! 
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Computer Games 


Tanti fantastici programmi, con la traduzione 
in italiano, appositamente ideati per questa 
collana e in grado di garantirvi ore e ore di 
svago istruttivo e divertente. 

Tra i giochi spettacolari di questo libro: 
ATTERRAGGIO SULLA LUNA (come atterrare sani e 
salvi con il modulo lunare); DECISIONI DIFFICILI (il 
computer vi aiuta a decidere); IL PARACADUTISTA (se 
soffrite di vertigini non fate questo gioco!); LO 
SCASSINATORE (10 tentativi prima che arrivi la 
polizia); IL CACCIATORE DI NUMERI (lotta senza 
quartiere contro i numeri invasori); IL GENERATORE DI 
COMPLIMENTI (il tirami-su per i depressi); LO 
SCIATORE (...e la Coppa del Mondo sarà vostra); 
CONTRO L’ALIENO (attacco al vostro incrociatore 
spaziale). 

“GIOCHIAMO CON ATARI" vi aiuterà moltissimo, 
giocando, a migliorare la vostra abilità fornendovi non 
solo tutte le istruzioni per inserire correttamente i 
programmi nel vostro computer, ma anche un 
utilissimo glossario dei termini essenziali e preziosi 
consigli e indicazioni su come modificare e migliorare i 
programmi del libro o realizzarne di nuovi. 
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